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Möchten Sie als Software-Autor 
für den TRONIC-Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner für eine künftige 
intensive Zusammenarbeit zu finden. Der TRONIC-Verlag vereinbart mit seinen 
künftigen Software-Autoren pro veröffentlichte Seite (einschl. Programm- 
beschreibung) ein Honorar von DM 120, — . 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich für eine 
Veröffentlichung entscheidet. Die Auszahlung erfolgt also nicht erst nach 
Veröffentlichung in einer unserer Ausgaben, sondern wesentlich früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Programme) zur 
Darstellung im Heft heranzuziehen und abzudrucken. 

Einzusenden sind: 

— Programmbeschreibung und Programmflußplan 

— bespielte Cassette oder Diskette 

— Listing 
mit Copyright. 

— Freiumschlag 
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Haben Sie Interesse? Haben Sie noch Fragen? 
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VC-64 



Hardcopy 

Dieses Programm druckt den 
Bildschirm auf dem Drucker aus. 
Space-Fighter 

Fremde Raumschiffe wollen auf 
der Erde landen. Versuchen Sie 
die Feinde abzuwehren. 



TI-99 



Lift Bär 

Lift Bär hat sein Werkzeug am 
Bau liegengelassen. Nun muß 
er es wiederfinden. 

ASC 2-Hilfsprogramm 

Ein aufwendiges Hilfsprogramm 
für den TI-99. 

ZX-Spectrum 

Matheprogramm 

Lösung von Integralen. Differen- 
zialgleichungen u. Funktions- 
darstellungen auf dem Bildschirm. 
Bongo-Beecatcher 

Bongo sind die Bienen ausgeris- 
sen. Jetzt müssen Sie wieder 
eingefangen werden. 

ZX-81 

Tonprogramm 

Der ZX-81 gibt Töne von sich. 
Aldebaran 

Ufos aus dem All bedrohen Ihr 
Raumschiff. Versuchen Sie 
geschickt auszuweichen 



Apple 2 



Library 

Eine luxuröse Diskettenverwaltung 
für Tippfaule 

Fight 

Ein Spiel, wo Reaktions- 
schnelligkeit gefragt ist. 



VC-20 

EIA Multigraph 

58 



Ein Grafikprogramm für den VC-20 
u. Super Expander VIC 121 1 A 



All-Rammer 

Ein Weltraumspiel. Ziel ist es 
Satelitten zu entschärfen. 



Atari 

Startup 



Ein Hilfsprogramm, program- 
miert auf den Atari-400 



60 

g -| Chopper-Fight 

65 



68 



Ein schnelles Action-Spiel 
für alle Atari-Fans 
Zeilen Split 

Ein Hilfsprogramm program- 
miert auf den Atari-400 

Dragon 32 

Laser Attack 

Ein farbiges Programm für 
Computerfreaks 



Tips & Trick 
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Tips + Tricks 



Viele Besitzer eines Commodore 64 
wissen nicht, daß ihr Computer vier 
analoge Eingänge besitzt. Diese eig- 
nen sich für fast alle handelsüblichen 
Paddles. Paddles bestehen in der Re- 
gel nur aus einem Potentiometer so- 
wie einem Feuerknopf. Je nach Stel- 
lung des Reglers wird eine entspre- 
chend große Zahl (0 bis 255) vom 
Computer ermittelt. Dem Basic-Pro- 
grammierer ist jedoch leider das Aus- 
lesen der Paddles versagt. Das folgen- 
de Maschinenprogramm hilft nun, 
diesen Mangel zu beheben: 



DATA-Generator 

In vielen Basic-Programmen werden 
Maschinenroutinen verwendet, um 
die nötige Geschwindigkeit zu errei- 
chen. Diese Routinen werden dann oft 
als „DATA-Zeilen" in das Progamm 
eingefügt. 

Wer jedoch schon einmal ein längeres 
Maschinenprogramm programmiert 
hat, weiß, wie mühselig es ist, das 
Programm in „DATA-Zeilen" zu 
übersetzen. 



60000 

60001 

60002 

60003 

60004 

60005 

60006 

60007 

6000S 

60009 

60010 

60011 

60012 

60013 



DATA 120,169,128,32,236,207,142,60,3,140 
DATA 61,3,173,0,220,41,12,141,159,2,169 
DATA 64,32,236,207,142,62,3,140,63,3,173 
DATA 1,220,41, 12, 141, 160,2, 169,255, 141,2 
DATA 220,88,96,141,0,220,9,192,141,2,220 
DATA 162,0,220,9,192,141,2,220,162,0,202 
DATA 208,253,174,25,212,172,26,212,96 
FOR 1=53182 TO 53247 : READ D : POKE I,D 



NEXT I 



PRINT PEEK(830) 
PRINT PEEK(831) 
PRINT PEEK(672) 
PRINT PEEK<828> 
PRINT PEEK<829) 
PRINT PEEK(671) 



REM PADDLE 1 AM PORT 1 

REM PADDLE 2 AM PORT 1 

REM TASTEN VOM PADDLEPAAR A 

REM PADDLE 1 AM PORT 2 

REM PADDLE 2 AM PORT 2 

REM TASTEN VOM PADDLEPAAR B 



Das hier vorgestellte Programm 
nimmt uns die gesamte Arbeit ab. Hat 
man ein Maschinenprogramm im 
Speicher stehen, so lädt und startet 
man den DATA-Generator. Nach der 
Eingabe der ersten Zeilennummer so- 
wie Anfangs- und Endadresse des 
Maschinenprogramms erstellt das 
Programm selbständig die erforderli- 
chen „DATA-Zeilen" sowie die erfor- 
derliche Einlese-Schleife. Bei länge- 



ren Maschinenprogrammen kann 
dies einige Minuten dauern. Nach der 
Erstellung löscht sich der Data-Gene- 
rator selbst, so daß nur die Data-Zei- 
len im Speicher bleiben. Man kann 
nun das Maschinenprogramm wie ein 
Basic-Programm laden und spei- 
chern. Selbstverständlich können 
auch Sprites oder Bildschirminhalte 
u. v. m. in „DATA'S" umgesetzt wer- 
den. Obwohl der Data-Generator nur 
sehr wenige Bytes belegt, wird er sich 
schnell zu einem unentbehrlichen 
Werkzeug verwandeln. 



18 PRINT"LZ3 ***** DATA GENERATOR 

11 INPUT'-raZEILENNR. <>22) " ; ZM = I HPUT"CANF 

12 INPUT"ENDADRESSE ";E 

±3 PRIHT-LilÖ FORI="A"TO"E"READ DA-POKEI, 
■■ZN" :E="E" : A = "A; 

14 PRINT" - GOTO 15" - GOT020 

15 PRIHT'V; - IFA>ETHEN21 

16 PRINT"a"ZN"DATA ";FORO=I TO 17:D=PEEK 



F.BRALL ***** lüiJ"-POKE5328± 



AHGSADRESSE " ; A 

DA:NEXTI":PRIHT"ZN= 



C A> :D$=STRS(D) = SS 



±7 FORI=I TO 4:E*-MID*<D$,I,i> = IF ESO" "THEN S$ = S§ + E$ 

18 HEXTI:PRIHTSS"/"i = A=A+i IFA>E THEN 0=i7 

19 NEXTO = PRINT"II " = PR I NT". A = "A" = ZN="ZN+i" : E = "E" GOTO 15 
26 PQE631 , 13 :F0RI-632T064D : POKEI , 13 NEXT : POKE198 , 3 = EHD 

21 PRINT"L,";=rORI=li TO IT : PR I NT I : NEXT = PR I NT"GOTO 22" GOTO 2 

22 PRIHT"L"; :FORI=18 TO 22 - PR I NT I s NEXT I = = PR I NT"L I ST" : G0T028 
1READV . . - 



Viele Freaks wissen eigentlich nicht, 
daß Computer nur sehr ungenau 
rechnen können. Dies macht sich ins- 
besondere bei Zahlen mit Nachkom- 
mastellen bemerkbar. Mit dem nach- 
folgenden Programm kann man Zah- 
len auf beliebige Stellen runden und 
somit die Ungenauigkeit etwas aus- 
gleichen. 



Das Programm kann als Unterpro- 
gramm für fast alle Basic-Computer 
verwendet werden. 



16 REH 8 ~ R-nz-ähl der Stell em 

20 REM Z - Zahl 

30 Z= I NT < Z* ( 1 Q 1$ "> +0 . 5 > / i i tS ) 

40 RETURN : REM Z enthielt die 9eru.ridete Zahl 
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Im Gegensatz zu vielen anderen Com- 
putern besitzt der VC 20 einen Video- 
Controller. Dieser Controller über- 
nimmt die gesamte Aufbereitung des 
Fernsehbildes. Da dieser Controller 
ab Adresse 36864 ($9000) erreichbar 
ist, lassen sich kaum vorstellbare Ef- 
fekte erzielen. Will man beispielswei- 
se den Bildschirm verschieben, so ist 
dies für den Controller keine Schwie- 
rigkeit. Mit dem Befehl POKE 
36864,X teilt man ihm die horizontale 
Position, und mit POKE 36865,X die 
vertikale Position mit. Mit diesem 
Trick ist es möglich, das Bild an jede 
Position des Schirmes zu verschie- 
ben. Hier noch eine Aufstellung sehr 
interessanter Adressen: 



368 
368 
368 
368 



64 

65 
66 
67 



3686 9 



Hör i zonta I e B i I dp os i t i cm ( norm* 1 12> 
Vert i kale E i 1 dP os i t i on ( norm -3. 1 38 ) 
Spaltenanzahl des Videoöil.des •:; norm 3. 1 iS®> 
Zeilenanzahl des Videobildes (riom&l 46) 
Bit Ö waehlt 8*8 oder 16*8 Matrix der Zeichen 
Als sinnvol le Frriuiendu.n9 dieses Re9 isters- waere 
die Erzeu.9u.n9 einer feststehenden Seile.- welche s 
nur durch POKE beschreiben laesst/ denk bar, 
Bit 4-7 dienen zu.r Eestir»'irnu.n9 der Bildschirmadre 
Bit 8-3 bestimmt die La9e des Zeichensatzes. 
Die folgende Tabelle zei9t den 2u.sammenhan9 der- 
er sten 4 Bit "'s u.nd der Position des Zeichens atze 



ich 



Bit-'s 

ÖÖ0Ö 

98 18 

1109 
1161 
1110 
1111 



Adresse 

32768 

348 i 6 

4096 

5120 

6144 
7 1 68 



Bemerkung 

ROH Zeichensatz GRQSS/GRfiFIK 
ROM Zeichensatz KUEIN/GROSS 

Def :i. n i erbarer Ze i chensatz 



TI- 9914a 

Der TI- 99/4a braucht je nach Länge 
des Programms ca. 500-1100 Bytes 
für sich selbst. Wird der Platz zum in- 
ternen Umdaten zu knapp, meldet er 
sich mit: „MEMORY VOLL IN"! . . . 
Mit dem Ext. Basic-Modul läßt sich 
das etwas ausgleichen, zudem man 
vor dem Einlesen des Programms fol- 
gendermaßen beginnt: 

1. Befehl NEW 

2. Befehl CALL FILES (1) 

3. Befehl OLD CS1 oder RUN „CS1" 
oder 

OLD DSK 1 . Name oder RUN „DSK 1 . 
Name". 



Willkommen in der Zukunft! 

Das Computerzeitalter hat begonnen 
und wird mehr noch als der Beginn 
des Industriezeitalters vor rund 200 
Jahren die Gesellschaft revolutionie- 
ren. 

Ob es uns gefällt oder nicht, wir alle 
werden mit dem Computer leben 
müssen, werden lernen müssen, mit 
ihm umzugehen. 

Daß auch der Technik aufgeschlossen 
gegenüberstehende Leute jedoch an 
„ihrem" Personal-Computer (Perso- 
nal = persönlich) scheitern, ist kein 
Geheimnis. Die Ursache für Angst 
und Argwohn dem Computer gegen- 



TI-99/4A 

Besitzt man eine Diskettenstatibn für 
den TI- 99/4A ohne Speichererweite- 
rung, dann läßt sich der CALL FILES 
(X)-Befehl mit in das Programm ein- 
bauen. 

Zum Beispiel: 

1500 REM Neues Programm anwäh- 
len 

1510 CALL FILES (1) 
1520 RUN „DSK 1. Name" 
Je nach Menge der Daten läßt sich ei- 
ne Menge Speicherplatz zusätzlich 
gewinnen. Mit Speichererweiterung 
gilt dieser Befehl als ein Unterpro- 
gramm (Programmabsturz). 




über liegt grundsätzlich bei nicht aus- 
reichenden Vorkenntnissen, denn 
auch die inzwischen so zahlreich er- 
schienenen Computer-Bücher lassen 
den Anfänger in der Regel im Stich. 
Hier setzen die HEYNE COMPUTER- 
BÜCHER an. Die ersten sechs Bände 
(monatlich wird ab Mai ein Titel er- 
scheinen) führen den Laien systema- 
tisch an das unbekannte Wesen Com- 
puter heran. Die HEYNE COMPU- 
TER-BÜCHER sind von Fachleuten 
geschrieben, die sich über den engen 
Kreis der Freaks und Hacker hinaus 
verständlich machen können. 
Das spätere Programm der HEYNE 



COMPUTER-BÜCHER wird einzelne 
Themen für den Fortgeschrittenen 
vertiefen. • 

Mit TESTEN SIE IHRE COMPUTER- 
INTELLIGENZ gibt Dr. Alfred W. 
Munzert, einer der bekanntesten 
Testpsychologen Amerikas, auf einfa- 
che, verständliche und fast spieleri- 
sche Weise eine Einführung in Logik 
und Technik von Computern. 
HEYNE COMPUTER-BÜCHER 
Dr. Alfred W. Munzert 
TESTEN SIE IHRE COMPUTER-IN- 
TELLIGENZ 

Heyne-Buch Nr. 15/1, DM 9,80 
Deutsche Erstausgabe 
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Software 

CONGO BONGO 

Der Spieler ist hier der Jäger, der dem 
Gorilla CONGO BONGO an den Kra- 
gen will. Doch der wehrt sich munter 
seiner Haut, indem er mit Kokosnüs- 
sen nur so um sich wirft. Der Jäger 
muß diesen Wurfgeschossen ge- 
schickt ausweichen. Nach Erstürmen 
des Gipfels verläßt CONGO BONGO 
den Hügel fluchtartig und rettet sich 
ans andere Ufer, Der Jäger muß nun 
versuchen, über den Fluß zu kommen 
und schwingt dabei nicht wie Tarzan 
von Liane zu Liane, sondern springt, 
auf dem Rücken der Nilpferde. Was- 
serpflanzen und Fische ans andere 
Ufer. CONGO BONGO ist nur für ei- 
nen Spieler ausgelegt, obwohl die 
Verpackung etwas anderes aussagt. 
Wer Frogger kennt, wird feststellen, 
daß CONGO BONGO keine Überra- 
schungen bietet, obwohl beim ersten 
Hinsehen die Grafik noch recht inter- 
essant ist. Die Figurengestaltung läßt 
doch einiges zu wünschen übrig. Auch 
die Farben sind nicht der Natur ent- 
sprechend oder haben Sie schon mal 
einen „rosa" Gorilla gesehen? CON- 
GO BONGO für den C mmodore 64 
ist bestenfalls ausreicl id. rf 
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Software 

DINO EG GS 

Beim ersten Einblick in DINO EGGS 
meint man, ein neues Kletterspiel vor 
sich zu haben. Man steht am Anfang in 
einem Tor. in welches man jedesmal 
zurück muß. wenn die Energie zu En- 
de ist, oder Sie drei Eier gesammelt 
haben. Diese werden dann im Tor ab- 
gelegt, wobei man selbst mit den Eiern 
in die Zukunft fliegen kann. Nun er- 
scheinen Sie irgendwo auf der Szene. 
Um mehr Kraft zu haben, können Sie 
Blumen essen, wodurch man die Mög- 
lichkeit hat. mehr Eier zu tragen. 
Beim weiteren Spielablauf werden 
Sie von Schlangen, Spinnen und al- 
lerlei Kleintieren behindert. Diese 
können Sie mit Steinen beseitigen, 
welche unüblicherweise an der Decke 
hängen. Man erhält dadurch Plu- 
spunkte. Sollte man aber die Tiere 
nicht beseitigen können oder man 
kommt mit ihnen in Berührung, so 
verwandelt man sich in eine Spinne 
und das zweite Leben hat begonnen. 
Beim Sammeln der Eier sollte man 
sich abei* vor dem DINOSAURIER in 
acht nehmen, denn dieser wird versu- 
chen, Sie zu zertreten. Weiterhin hat 
man die Möglichkeit, sich in einen an- 
deren Level zu begeben. Nur dann 
werden Ihnen Punkte abgezogen, so 
daß man auch mit Minuspunkten an- 
fangen kann. Ein einfallsreiches Spiel 
für den Commodore 64, zum Preis von 
ca. 125 DM im Handel erhältlich, rf 
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Komm '84 

Messe für Bildschirmtext und Micro- 
computer 

In der Zeit vom 17. 5. bis zum 20. 5. 
1984 fand in der Gruga-Halle in Essen 
die Komm '84. eine Ausstellung für 
den Fachmann und den Computer- 
Fan statt. Dabei ging es rund um den 
Mikrocomputer. Im Mittelpunkt die- 
ser Messe stand die Anwendung der 
Computertechnik für Büro und Beruf 
sowie für Heim und Hobby. 
Wer jedoch gemeint hatte, auf der 
Messe ein großes Angebot vorzufin- 
den, sah sich sehr enttäuscht. Denn 
von 63 Anbietern waren ganze 15 
Aussteller für den Homecomputer- 
Bereich. Davon 5 Aussteller für Soft- 
ware und Bücher sowie das Kaufhaus 
Horten in Essen mit einem reichhalti- 
gen Angebot an Computern und Soft- 
ware. Hier sahen wir auch den Dra- 
gon 64 mit Floppy. Drucker und viel 
Software. 







.-. 




Größter Floppy-Disk-Produzent Ver- 
batim mit neuem Management 
Mit einem neuen Management für die 
Region Europa. Afrika und Nahost 
startet der US-Multi ..Verbatim Incor- 
porated" das Fiskaljahr 1984/85. Das 
kalifornische Unternehmen ist welt- 
weit der größte Hersteller von Flop- 
py-Disks. Jahne de Barros, der ..Ver- 
batim" in Europa aufbaute, wird abge- 



löst durch Antony J. Perry, 42. wel- 
cher als Managing Direelor Europe, 
Africa and Middle East die Geschäft- 
stätigkeit des Unternehmens in dieser 
Region leiten wird. ..De Barros" wird 
in seiner neuen Funktion als Mana- 
ging Director International Marketing 
Operations an den Hauptsitz des Un- 
ternehmens, nach Sunnyvale. Kali- 
fornien, zurückkehren. 



Bei der Firma VIDIS Electronic aus 
Lingen sahen wir einen neuen Com- 
puter. Der „Bit 90". ein Computer 
»made in Taiwan«*, wie geschaffen 
zum Spielen mit Ton und Graphik. 
Der „Bit 90" verfügt über Z 80 CPU. 
erlaubt bis zu 128 Zeichen per Zeile 
und hat eine hohe Auflösung (256x1 92 
Bildpunkte). Bei 1 6 Farben und 3 Ton- 
generatoren mit 5 Oktaven sowie 66 
Standardtasten ist der „Bit 90" in zwei 
Grundversionen zu haben. Mit 18K 
zum Preis von 554,- DM und in 34K 
zum Preis von 654.- DM. Mit einem 
Adapter lassen sich Atari-VCS-Spiel- 
kassetten abspielen. 
Der Tronic-Verlag wird den „Bit 90" 
noch testen und in einer unserer Aus- 
gaben ausführlich darüber berichten. 
Ein kleines Fazit: Wer mit großer Er- 
wartung auf die Komm '84 ging, wur- 
de ein wenig enttäuscht. Viele Aus- 
steller und Besucher haben mehr Er- 
wartung in diese Messe gestellt. Hier 
sollten sich Veranstalter und Ausstel- 
ler einmal mehr einfallen lassen. 

Rolf Freitag 

Der neue Verbatim-Generaldirektor 
für Eiiropa, Afrika und Nahost, Anto- 
ny J. Perry, kommt vom US-Konzern 
Union Carbide, wo er als General- 
Manager der Home Products Division 
in Genf für den europäischen, den 
afrikanischen und den Nahost-Raum 
zuständig war. Zusätzlich war Perry 
Leiter des Bereichs Planung und Ent- 
wicklung am europäischen Hauptsitz 
von Union Carbide in Genf. 
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Forth-Editor 

Im letzten Teil haben wir das Definie- 
ren von neuen Befehlswörtern ken- 
nengelernt. Wir haben auch gelernt, 
daß in FORTH definieren gleichbe- 
deutend mit Programmieren ist. Um 
jedoch größere Programme entwik- 
keln zu können, müssen wir diese ab- 
speichern, laden und editieren kön- 
nen. Dies geschieht in FORTH - im 
Gegensatz zu Basic - mittels Textedi- 
tor. Der Texteditor ist leider in jeder 
FORTH-Version unterschiedlich zu 
handhaben. Wir wollen uns deshalb 
mit unserer Beschreibung auf den 
weitverbreiteten „FIG-STANDARD" 
beziehen. 



Im Gegensatz zu vielen anderen Tex- 
teditoren wird in FORTH immer nur 
eine Bildschirmseite editiert. Man 
spricht dabei von einem „SCREEN". 
Diese SCREEN's werden mit einer 
Nummer versehen und in der Regel 
auf Diskette gespeichert. Je nach 
FORTH-Version können 20 bis über 
100 solcher Screen's abgespeichert 
werden. Ein solcher Screen ist in 16 
Zeilen zu je 64 Zeichen aufgeteilt. Da 
bei einigen Computern nur 40 Zei- 
chen darstellbar sind, wird durch ein 
links/rechts-Scrollen ein größerer 
Bildschirm simuliert. Ein Beispiel da- 
für ist „64 FORTH" von HES. Die mei- 



sten FORTH-Versionen besitzen 
mehrere TEXTPUFFER. Diese erlau- 
ben das gleichzeitige Einladen mehre- 
rer „SCREEN's". 

Wollen wir einen Screen auf dem 
Bildschirm ausgeben lassen, so kön- 
nen wir dies mit dem Befehl: LIST. 
Das folgende Beispiel listet Screen 
Nummer 10: 
10 LIST (RETURN) 



Ein Screen könnte beispielsweise wie 
folgt aussehen: 




1 

2 
3 
4 
5 
6 
7 
8 

10 
11 
12 
13 



BEISPIEL EINES SCREENES; JUNI 84 ) 

ROUND SWflP 

50© + 100Ö / + 

SCALE 392 1900 */'MÜD ROUND i 

N->T SCALE . CR ; 

STERN ." #" ; 

1 DIES IST EIN SCREEN" 



Die Zeilennummern dienen nur zur 
Orientierung und werden deshalb 
nicht von allen FORTH-Versionen 
ausgegeben. Die erste Zeile sollte im- 
mer einen Kommentar enthalten, um 
nicht den Überblick zu verlieren. Der 
Kommentar beginnt mit einem ( Zei- 
chen, gefolgt von einem Leerzeichen 
und geht bis zum Zeichen ). In diesem 
Kommentar sollte das Datum und die 
Aufgabe des SCREEN's beschrieben 
werden. Selbstverständlich können 
auch in anderen Zeilen noch Kom- 
mentare notiert werden. 
Wir haben nun gesehen, wie ein be- 
schriebener SCREEN aussehen kann 
und wollen nun daran gehen, einen 
SCREEN zu beschreiben. 
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Zuerst suchen wir uns mit Hilfe eines 
Handbuches einen freien SCREEN 
aus. Mit . . . LIST können wir uns 
überzeugen, daß der SCREEN leer ist. 
Ist beispielsweise der SCREEN Num- 
mer 10 unbeschrieben, so geben wir 
folgenden Befehl ein: 10 EDIT (RE- 
TURN). 

Nun befinden wir uns im eigentlichen 
Editor. Dieser ist im FIG-STAN- 
DARD zeilenorientiert. Das bedeutet, 
daß der Text mit Hilfe mehrerer Kurz- 
befehle editiert bzw. erstellt wird. 
Die folgende Aufstellung zeigt die 
Funktion der Standard-Befehle: 
LINE n — » adr 

Dieser Befehl übergibt dem Stack die 
Adresse der Zeilennummern. Ist der 



entsprechende Screen nicht im Puf- 
fer, so wird dieser von der DISK ein- 
gelesen. 

-MO VE adr — » n 
Die Textzeile ab Adresse adr wird in 
Zeile n kopiert. 
Hn~» 

HOLD übernimmt die Textzeile n 
nach PÄD und hält sie dort zur Ausga- 
be bereit. 
En— » 

ERASE löscht Zeile Nummer n und 
füllt diese mit Leerzeichen (Blanks) 
aus. 

Sn--» 

Dieser Befehl fügt vor Zeile n eine 
Leerzeile ein. Nachfolgende Zeilen 
werden um eine Zeile nach unten ver- 
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schoben. Die unterste Zeile geht ver- 
loren. 
Dn — » 

Die Zeile n wird gelöscht. Dadurch 
wird der nachfolgende Text um eine 
Zeile angehoben. 
Tn— » 

Zeile Nummer n wird auf dem Schirm 
ausgegeben. 
L n --» 

Der zur Zeit bearbeitete Screen wird 
ausgelistet. 
Rn — » 

Dieser Befehl ist das Gegenstück zum 
H-Befehi. Die im PÄD abgelegte Zeile 
wird in Zeile n ausgegeben. 

Der folgende Text wird in Zeile n 
übertragen. Der alte Zeileninhalt wird 
überschrieben. 
In — » 

Der PÄD wird ab Zeile n ausgegeben. 
Die nachfolgenden Zeilen werden um 
eine Zeile nach unten verschoben. 
CLEARn--» 

Der Screen n wird mit Leerzeichen 
(Blanks) vollgeschrieben und somit 
gelöscht. 
COPYnln2-~» 

Dieser Befehl kopiert den gesamten 
Screen nl nach Screen n2. 
Die nachfolgend aufgestellten Befehle 
gehören zwar nicht zum Editor, sind 
jedoch zum Verwalten derScreen's 
erforderlich. 
LISTnl— » 

Screen nl wird auf dem Schirm aus- 
gelistet. 
FLUSH 

Alle geänderten Screen 's werden auf 
Diskette abgespeichert. 
EDITnl --» 

Screen nl wird eingeladen und kann 
editiert werden. 
LOADnl--» 

Dies ist der wichtigste Befehl. Screen 
nl wird in den Puffer eingeladen und 
dann Zeile für Zeile compiliert. Wird 
ein Wort mehrmals definiert, so wird 
dies mit einer Meldung angezeigt. Der 
Comp ili er- Vorgang wird in diesem 
Falle jedoch nicht unterbrochen. Um 
jedoch unnötigen Speicherverlust zu 
vermeiden, sollte man das Wörter- 
buch vor jedem neuen Compilier- 
Vorgang zurücksetzen. Wie wir wis- 
sen, wird dies mit dem Befehl FOR- 
GET . . . gemacht. 





Sicher wird sich so mancher schon 
gefragt haben, wie er längere Pro- 
gramme schreiben soll, wenn doch 
immer nur ein Screen compiliert 
wird. Des Rätsels Lösung ist ganz ein- 
fach: 

Mit Hilfe des --»-Befehls kann man 
beliebig viele Screen 's miteinander 
verbinden und somit sehr lange Pro- 
gramme schreiben. 
Der - - »-Befehl wird in diesem Fall an 



das Ende des letzten Screen's gesetzt. 
Aufgerufen wird jeweils nur der erste 
Screen. Je nach Datenträger und An- 
zahl der Puffer dauert der Compilier- 
vorgang bis zu einigen Minuten. 
Einige Forth-Versionen besitzen auch 
die Möglichkeit, das Wörterbuch di- 
rekt abzuspeichern. 
Im C64 FORTH von HES heißt der 
Befehl zum Abspeichern des Wörter- 
buches: DSAVE. 



Computronic 



Das Einladen geschieht in diesem Fall 
mit DLOAD. Das D steht in beiden 
Fällen für Dictionary und ist gleichbe- 
deutend mit Wörterbuch. Bei der Be- 
nutzung dieser beiden Befehle sollte 
man bedenken, daß nur der compi- 
lierte Code angespeichert wird und 
somit keine Änderungen mehr mög- 
lich sind. 

Wir haben nun eine Menge über den 
FORTH-Texteditor erfahren und 
können somit auch längere Program- 
me schreiben, ohne diese nach dem 
Ausschalten zu verlieren. 
Wie schon erwähnt, ist es von größter 



Wichtigkeit, seine FORTH-Program- 
me gut zu dokumentieren, da FORT- 
H-Befehle allein sehr unübersichtlich 
wirken. 

Zur Dokumentation ist übrigens an 
dieser Stelle zu sagen, daß Kommen- 
tare unbestreitbar den Vorzug haben, 
unverrückbar physikalisch an die 
kommentierte Definition geknüpft zu 
sein. Daher wird jede Änderung eines 
Programms auch mit der Aktualisie- 
rung der Kommentierung zwangsläu- 
fig verbunden -sein. Dennoch sollte 
man die Kommentare auf der Diskette 
knapp halten. Genauer: 
Die mit dem Code verknüpften Kom- 



mentare sollten knapp sein, da sonst 
die Compilierungszeit unnötig erhöht, 
wird. 

Daneben ist die Lesbarkeit von Tex- 
ten innerhalb von Codes relativ 
schlecht und verschlechtert auch die 
Lesbarkeit des Codes. 
Da die Diskettenlaufwerke von Heim- 
computern auch keine unbegrenzte 
Speicherkapazität besitzen, sollte 
man sich überlegen, ob man die Doku- 
mentation nicht wie bei Assembler- 
Programmen getrennt vom Pro- 
gramm vornimmt. 

Wie wäre es denn z. B. mit Papier und 
Bleistift? 
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LASER 110 - 4 KByte RAM. Dieser „persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 
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Computercamp 



Ferienzentrum Schloß Dankern 



4 Tage (nur Pfing 


sien) 350. 


-DM 


i Vvoc'nc 


$50, 


-DM 


2 Wochen 


980, 


-DM 


3 'Wochen 


■1480, 


-DM 



Die P> >.: i s i: g c ' 1 1 f i fu r L/.-i t e , r fc r; ng u .- jg m rt Vollpension; die 
Kurse und fast alle Freizeitmöglichkeiten sind inklu- 
sive. 

%onde n a rife ,' u r G rup p e o cd e r S c.n i j i'io'ass e n a t ij A n frage. 
Eilt:r!\ d>e ■ii/'e Kunj^r beqieiivn sollen, stau dazu i\erz- 
<irh .■-liPfi/ader; - ,'^'en S.e ■j»s oin'rK.'i on; 




t ins te iger, Po rtg e s c h r/t t e r i e u nd „ Cra c ks " we rde< i b e • u ns 

vor, qualifizierten Pädagogen bzw. Informatikern betreut, c ast zuwe i um afles au f zuz ähJen: 
die es verstehen, individuell auf den Wissens* tond jedes p nyre»ten, Seh wimmbad, AI «ligoJf, Tisch tenn/s, Rie- 
fcji'ncrimLYS einzugehen und Informationen spre/e«sc/i senspieJp/atz mit Tcrzansdiaufce/, Westernfort, 
zt; vermi'tte/n. Fahrradkarussei, Pferderennen, Kletterturm, Rie- 

senrutsche... alles im Preis enthalten 1 . Darüberhin- 
aus Kegelbahnen, Autoscooter, Modellflugplatz, 
Fernsehräume, und auf dem Wasser Wasserskilift, 
Windsurfen, Wasserfahrräder, Tret- und Ruder- 
boote... 

Nicht /.u vergessen das 300 jähre alte Schloß, das zur 
Besichtigung einlädt, genauso wie mehrere Cafes, 
Restaurants, ein Ferienkino, eine Super-Disco. . . 

Haben wir etwas vergessen? Ach ja - einkaufen kann 
man a uc n ■ sogar s o n n tags ! 

...r fin de n : 1. 1 n ; n s § es o m i überze uge n des Angebet, da s 
D.' e a nge Du l e r \ e Pa < c 1 1 t u mla iii: sicher auch Computerfans begeistern wird. 

• £ infij h rungm Ha r dv/a re u n d ■ B e d; e n u ng 

• f. « r rfun rurigi'; die Kor. ••in'.'ijo.'kc:. 'Cr? rriiidf '■''' omp:. '."-::' : > - : - - --.-. , ?-...,-.., 

• fmführung in die Programmiersprachen . ^$*- :-.-",f-%'.? : ■ _'"'"" : =-'-•''-'" '. 5 .f>- 

• Die Programiniersproche ß^Sl'Cvo.'J.A- Z : ' "riSS, ■'■; r : , ;:i /•' 

• BASIC für roftgyjd'.rkiijue •fiy-/.' Y'Yrv; ■;.;■/" >-""- ■ -y."-:*-.'; / ' - - 

• Perfektionier er von Programmen in [iASiC \ 

• EinfühiuriguridPrugrarriniierr'riiriiV.risch'ii^rsprachf.-: ^>.. yyy ^<-v^->y----- -. : -; -/f --,--."-■'•.■■ -■-----■- - ..-,?: ■ .• -yy. 

Dr/raue.'.'iifXJi/s aber natürlich jede Menge detaillierter : £f-~-~"-'~ -—-■f?"-"' -~ - -- -,y : y,^, ,yy - y;y _. : 

/nformatfon wie zum Beispiel B4S/C-Dia/ek;e, oder wie ;yv 

mon e.i.oen bereits vorhandenen Computer optima! nut- -$-.-y. ^i^r^^'S-w^"'-''' - : ■ ■■'-'■-'--- ---'■- y- ■•-■'■■'■ '-'- 

zen kann, etc. ":'.'- "\-..- '' .. .'..,- ' ' " 

Dr; der Er/d/g der Kurse auch von der Verji/gParktrf! der ^*' ''"'":? '" -. "■'"'-""" -'"-'-- ■ v '-^--' -■"■--'. --■->;;•--■• >:>»;,: -/.--,- : .._ <-- ,_ ; . : 
Gerate abhängt, garantieren wir jedem Teilnehmer .- 

ein eigenes Gerät, das er mindestens 3 Stunden tag- ^■^v.;■;^fi■i^i;.>'^.;.•^....v,-.,:.^;Yc^'.:.:.:.^;>~,'; •.-.: ■.•■■-■ 7 - 

lieh nutzen kann. 

Und - wie gesagt - für individuelle Betreuung ist genauso . 
gesorgt v/ie für Raum zur Entfaltung von Kreativität und 
Eigeninitiative - das fördert den wichtigen Erfahrungs- 
austausch. 

Zum Abschluß des Camps erhält jeder Teilnehme: ein ' 

Abschiußzertifikat, und kann natürlich auch selbst 
enteilte Pro 5 ra mm e etc. mit n a c h Ha use ne h m e n . 




Die Camps beginnen jeweils an einem Samstag, Die 
Belegung ist mc'ghch für I Woche, 14 Tage caerj Wochen 
(Pfingsten nur 4 Tage). 



^m^iW^^^^^^ß^^^^m Ostern '84 



Pfingsten '84 



'^m^M^s^^MM 




Wir freuen uns 
schon auf Sie - 
bis bald! 



14.4 


-21.4 


WHHKtM 


91.4.-28.4 


9.6.-12.6. 


Sommer '84 Herbst '84 


23.6.-30.6 


6.10.-13.10. 


30.6 


- 7.7 


13.10.-20.10. 


7.7 


-14.7 


20.10.-27.10. 


14.7 


-21.7 


27.10.- 3.11. 


21.7 


-28.7 




28.7 


- 4.8 




4.8 


-11.8 




11.8 


-18.8 




18.8 


-25.8 




25.8 


- 1.9 




1.9 


- 8.9 






Gewohnt wiro 


.'ii'cni. 


in Hoteis, Jugendherbergen oder 


Zeltlagern, so 


ider.e 


n supergemütlichen Ferienhäu- 


sern (4 ■ 6 Pen 

.S(.'i:S .'ü.'jjt.'n, in 


jcr'ke 
nisten 


a u s Ho iz, die in un iratt e iba r e r Nähe 
r: und des dazugehörigen Dankern- 
eines 150 Hektar großen Ferien- 


Zentrums. U 


irtgent 


konnen Eltern auch gerne ihre 


Kinder begieit 


■■n- A 


i frage beim Buchungsbüro genügt. 



Frühstück, Mittag- und Abendessen sind inklusive. 




m 



Ort der Handlung ist das Ferienzentrum Schloß Dan- 
kern, 4472 Haren (Ems). Ein riesiges, landschaftlich 
wunderschön gelegenes Feriengebiet mitten im schönen 
Emsland. Wie man hinkommt, ist am besten der Karte zu 
entnehmen. Die Bahn (BahnhafHaren) ist nur etwa 2 km 
entfernt. Weitere Fragen beantworten wir gerne -rufen 
Sie uns bitte an. 

Buchungsbüro Computercamp 
Ferienzentrum Schloß Dankern 
Holztwiete 4 D 
2000 Hamburg 52 
TeL: (040) 82 79 42 
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C64 Hardcopy 

Das hier vorgestellte Maschinenpro- 
gramm gestattet eine Hardcopy des 
Commodore-Screens. Hoehauflösen- 
de Grafik ist mit diesem Programm 
nicht auszudrucken. Die Bedienung 
ist denkbar einfach: Nach Eingabe al- 
ler 11 Basic-Zeilen startet man das 
Programm mit RUN. Nun wird es in 
den entsprechenden Speicherbereich 
gelegt. Das Programm ist für zwei ver- 
schiedene Speicherbereiche ausgeli- 
stet. Will man den Bereich ab $9000 
benutzen, so sollte man durch Poke 
55,0 und Poke 56,9 den Basic-Bereich 
heruntersetzen. Danach können be- 
liebige Programme eingeladen wer- 
den. Durch einen SYS-Aufruf wird 
die Hardcopy-Routine aufgerufen. 
Für Profis wurde das Programm auch 
als Assembler-Listing abgedruckt. 
Aufruf des Bereiches $9000 mit SYS 
36864 

Aufruf des Bereiches $C0OO mit SYS 
49152 

Hardcopybereich $ C 000 



0@3.. 872.. 234.. 234/ 234.. 234, 234, 234.. 
632 , 1 89 .■ 255 .■ 1 69 .. 004 , 1 6 2 .- 9@4 .■ 1 60 .■ 
0Ö4 , 032 , 20 1 .■ £55 , 169 .■ 080 .< 1 60 .- 084 .■ 
832 .-218, 255 > 1 73 , 824 , 288 , 28 1 , 82 1 .■ 
225 , 255 .- 248 , 046 , 1 68 , 808 , 1 ?? , 2b 1 - 
016.- 082 .- 889 , 1 28 , 11 £ .■ 002 , 809-,. 064 .- 
1 52 .■ 824 ,101 .. 25 1 > 1 33 , 25 1 , 1 44'.. 802 , 
218, 255 , 832 , 204 , 255 , 1 69 , 084 , 832 , 
«49 1 52T0 1 + 1 24 = RERjJK = POKE X .■ K : S=S+ 
> 1 6 1 34THENPR I NT " FEHLER I N DRTflS N 
T"HRRDCÜPV AUFRUF : : SVS 49152 == 







DflTR 


2 


DM TR 


3 


DflTR 


4 


DflTR 


5 


DflTH 


6 


DRTR 


c 


DflTR 


'c'< 


DflTR 


li 


: FORI 


U 


IFS< 


U 


. PRIN 



234,234 


169 


808 


162 


098 


168 


888 


000, 832 


186 


255 


832 


192 


255 


162 


133,251 


132 


2 02 


162 


825 


169 


813 


248 , 885 


169 


817 


832 


218 


255 


032 


133, 882. 


841 


863 


086 


802 


036. 


882 


832, 218. 


255 


200. 


192 


848. 


288. 


238 


238,252. 


202. 


298. 


193. 


169. 


813. 


832 


195,255. 


104. 


848. 


096 








;*: : he;*;t 














: END 















READ'- 



Hardcopybereich $ 9000 



888 .. 872 , 1 69 .< 1 43 , 1 62 , £55 , 

832 ,189, 255 ,163, 804 ,162, 

.084 ,. 032 / 28 1 , 255 , 1 69 , 800 , 

832, 218, 255, 173, 024, 288, 

225 , 255 1 248 , 846 , 1 68 , 88 8 , 

8 1 6 .■ 882 , 089 ■ 1 £8 , 11 £ , 602 , 

152, 924, 101 , 251 , 133,251 , 

210, 255 , 832 , 204 , 255 , 1 69 , 

I=36864TÜI+124 : READ:«: = POKE 

O 1 5369THENPR I NT " FEHLER 1 

NT"HHRDC0PV AUFRUF : : SVS 



1 


DATA 


fciL 


DATA 




DflTH 


4 


BflT'fi 


5 


DATA 


6 


DATR 


{ 


DATA 


o 


DflTH 


1 


FÜR 


V. 


: IFS 


15 PRI 



133,856. 


134,855 


169 


000 


162 


800 


160 


080 


084.. 168. 


888,032 


186 


255. 


832 


192 


255 


162 


168,084. 


1.33,251 


132 


2^2 . 


162 


025. 


169. 


013 


281,821. 


248,085 


169 


817. 


832 


218. 


2*55. 


032 


177,251. 


133,882. 


041 


863 j 


806. 


802; 


036. 


082 


809,064. 


032,218. 


255, 


208. 


192 


048, 


208. 


238 


144,882. 


238,252. 


202. 


298. 


193. 


169, 


813. 


832 


004,832. 


195,255. 


104. 


848. 


896 








I , X : 3=3+:*; = HEXT 














N DRTRS* 


= END: 














9*4896 


; ; II 















READ' 
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I^IROCOR —f~ 



1 

ENA ME 

3FILE 

4 OPEN 

5CK0UT 

6CLGSE 

7BS0UT 

8ST0P 

9CLRCH 

10ZSAD 

1 IBS ZW 

12BSAD 

13 

14 

15 

IG 

17 

18 
LEGEN 

13 

20 

ei 

22 

£3 

24 

£5 

£6 

27 

28 

HS 

30 

31 

32 

33 

34 

33ZAUS 

36 

37 

38 

33 

40 

41 

42ST0P 

43 

44 

45ENDZ 

46 

47 

48 

49 

5ß 

51 

52 

53 

54 

55 

56 

57 

53 

59 

60 

61 

62 

63 



ORG 


*3000 


EQU 


*FFBD 


EQU 


«FFBA 


EQU 


$FFC0 


EQU 


«FFCS 


EQU 


$FFC3 


EQU 


*FFD£ 


EQU 


*FFE1 


EQU 


$FFCC 


EQU 


*D018 


EQU 


*0£ 


EQU 


$FB 


PHP 




PHA 




LDA 


#$8F 


LDX 


#$FF 


5 TA 


$33 


3TX 


«37 


LDA 


#00 


LDX 


«00 


LDY 


#00 


JSR 


NAME 


LDA 


804 


LDX 


#04 


LDY 


#00 


JSR 


FILE 


JSR 


OPEN 


LDX 


804 


JSR 


CKOUT 


LDA 


#00 


LDY 


#04 


STA 


BSAD 


STY 


B3AD+1 


LDX 


#25 


LDA 


# 13 


JSR 


BSOUT 


LDA 


ZSAD 


CMP 


#£1 


EEG 


STOP 


LDH 


#17 


JSR 


BSOUT 


JSR 


STOP 


BEQ 


END 


LDY 


#00 


LDA 


CBSAD) 


STA 


BSZW 


AND 


#$3F 


ASL 


BSZU 


BIT 


BSZW 


BPL 


*+£ 


ORA 


#*8Q 


BVS 


* + £ 


ORA 


#$40 


JSR 


BSOUT 


INY 




CPY 


#40 


BNE 


ENDZ 


TYA 




CLC 




ADD 


BSAD 


STA 


BSAD 


BCC 


*+£ 


INC 


B3AD+1 



; STARTADRESSE = 36S64 

; SET F I LE NAME F AR AMETER 

; SET FILEPARAMETER 

; OPEN FILE 

; AUSGABEGERAET SETZEN 

} DATEI SCHLIESSEN 

; AUSGABE EINES ZEICHENS 

; STOP -TASTE ABFRAGEN 

J EIN/AUSGABE RUECKSETZEN 

; ZEICHENS ATZ ADR. 

; BS - ZWISCHENSPEICHER 

; SPEICHER F. BS -ADRESSE 

; STATUSREGISTER RETTEN 

; AKKU INHALT RETTEN 

; RAM-BEREICH BEGRENZEN 

; ZEILEN 14-17 MIT NOP AUFFUELLEN 

; WENN PROGRAMM AB 3?C000 ABGELEGT 

; <DEZ. 4915£) :: ZEILEN 14-17 F. 

; FILENAME PARAMETER SETZEN 



VC20 


ADRESSE 


- 


«FFBD 


VC£0 


ADRESSE 


- 


*FFBA 


VC£0 


ADRESSE 


_ 


SFFC0 


VC20 


ADRESSE 


- 


*FFC9 


VC£8 


ADRESSE 


- 


*FFC3 


VC£0 


ADRESSE 


- 


$FFD£ 


VC20 


ADRESSE 


- 


*FFE1 


VCH0 


ADRESSE 


- 


SFFCC 


VC£0 


ADRESSE 


- 


$9005 


FREI 


DEFINIERT 




FREI 


DEFINIERT 





WIRD 

VC20 SELBST FEST- 



DATEI 4 OEFFNEN 

DRUCKER NENNEN 

SEKUNDAER ADR. = ÖQ 

PARAMETER SETZEN 

DRUCKER OEFFNEN 

AKTUELLE GERAET SETZEN 

CMD/AUSGABEGERAET SETZEN 

LOW-BYTE BS SETZEN 

HIGH-BYTE BS SETZEN:: VC£0 B. 8K =S1E, 

ADRESSE MERKEN 



= >SK =*10 



ANZAHL D. BS-ZEIHLEN CZE I LENZ AEHLER ): : VCEB =#£3 

NEUE ZEILE < CR SENDEN) 

AN DRUCKER AUSGEBEN 

WELCHER ZEICHENSATZ ? 

KLEINSCHRIFT EINGESCHALTET ?' 

NEIN! AUSGABE FORTSETZEN 

JA? DRUCKER UMSTELLEN AUF ZEICHENSATZ 

AN DRUCKER SENDEN 

STOPTASTE ABFRAGEN 

GEDRUECKT? PRG. BEENDEN 

ZEICHENZ AEHLER = O0 

ZEICHEN V. BS HOLEN 

U. ZWISCHENSPEICHERN 

BLT 6+7 AUSBLENDEN 

1 * LINKSSCHIEBEN 

BS CODE FRUEFEN 

NACH A3C I I -CODE WANDELN 

BIT 7 SETZEN 

BIT 6 SETZEN 

UND ZUM DRUCKER SCHICKEN 

ZEICHENZ AEHLER + 1 

END ZEILE :: VCEö = #££ 

< ZEICHENZAEHLER > -> A 
JA, ZEIGER AUF NAECHSTE 
ZEILE SETZEN 
NEUE BS - ADRESSE SPEICHERN 

HIGH-BYTE BS-ADRESSE + 1 
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•— i •=» f=e cz* c^ o r=* 



64 


DE« 




65 


BNE 


ZAUS 


6G 


LDR 


tti3 


6? 


JSR 


BSOUT 


6 SEND 


JSR 


CLRCH 


63 


LDA 


«04 


70 


JSR 


CLOSE 


71 


PL« 




7£ 


PLP 




73 


RTS 





ALLE ZEILEN AUSGEGEBEN? 

CR LflDEN UND 

RUSGEBEN 

ftUSSflBE AUF BS 

DRUCKERDRTEI 

ALLE DRTEIN SCHLI ESSEN 

ALTEN RKKU INHALT LADEN 

ALTEN FLAGREG ISTER INHALT 

RUE CK SPRUNG 



(STATUS REGISTER; 



1 
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Space Fighter 




Space-Fighter 

Dieses Spiel stellt an Sie die Aufgabe, 
die in drei Wellen angreifenden Mon- 
ster zu vernichten, wobei mit jeder 
neuen Welle die Monster schneller 
werden und sich der Schwierigkeits- 
grad erhöht. Trifft ein Monster eine 
von vier möglichen Basen des Spieles, 
so wird diese vollkommen zerstört. 
Die Punkte für jeden Abschuß eines 
Monsters sind vom jeweiligen 
Schwierigkeitsgrad abhängig und 
werden zusammen mit der Zeit als 
auch der momentan anstehenden 
Welle im Bildschirm angezeigt. 

GOTOifl 

1 IFPEEK(U + 3X48THEHRETURH 

2 TT=PEEK<53263> -POKE53269,PEEK(532e9>-PEEK<53278> POKE532T8 
,6 

3 IF PEEK<53269>=TTTHEHRETURH 

■4 TR = TR + SG~2e-PRIWT ,, SaaSaäa£l!ld" , TftB<3Q>; LEFTSCSTRS«TR)+" 

, G> - RETÜRH 

5 D = © = K=IHT(RND<0>*6) : QW=8 = IFK<4THEMQM=2 

6 POKE49154+K, QW: POKE-431G2 + IC , EE/2 = POKE49i7Ö+K,EE/2 - AS = I : RETU 
RH 

7 IFJ<6THEHPOKEI f 8 
O IFJ>5THEHPOKEI,2 
3 HEXT : !> = ß = RETURN 

10 REM 

il REM ** COPYRIGHT BV REGIHALD SCHOLZ ** 

13 REM 

1-* GOSUB4808 REM ERKLAERUNG 

15 GOSUB2B80G REM POKE-ROUTIHEH 

16 TR = Q : SS = 4: SG = : MI4-B - GOSÜB108O 
J.T TI$=J* 600*000" 

20 FOfßb = ±TO«4: EE = ie-2*SG 

25 EORWM=iT03 = ONUUGOSUBiiOO , 1110, 1129 
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26 PRIHT"L" = M=53248 = POKE5328i / 14: GO3UB3©0© 

27 PRIHT"i" 

36 POKEU+21,253 

4© POKEU + 28,255 

5© F0RI=8T07 i POKEV+39+I , F< I> -HEXT 

60 POKEV+37,2 = POKEU+38, 3 

7© POKE2840, il : POKE2841 , 13 

8© F0RI=2842T02847 = POKEI r Ti :NEXT 

IO0 POKEU , 120 : POKEU+i, 2O0 

11© FORI=2T07: POKEU + 2*I , 4B+C I-2>»35: POKEU-H + 2*I , 55 = HEXT 

111 : REM 

±±2 = REM **««* START HP *t***t*t 

113 = REM : 

±15 SVS 49408 

128 Q=Q+IIFQ<28THEHI50 

±3© Q=©r IFPEEK(2842)=TiTHEHFORI=2042T82047: P0KEI , T2 : HEXT :G8T 

0158 

±4© IFPEEK(2842)=T2THEWF0RI=2042TO2847 = POKEI , TA : NEXT 

±5© IFPEEK<254>=255THEHGOSUB2008 

16© IF<PEEK<53278>ftND2>=2THENGOSÜBi 

17© IF(PEEKC53278)A«Di>=iTHEHGOTO1880 

175 IF<PEEK<532e9>AHDl)<>lTHEM1888 

180 IFPEEK<U+2i)<4THEH30O 

13© D-D4-J.= IFJ»188-28*S6THEHGOSUB5 

200 PRIHT"a^ÜLJ^fclilJt»lJl?L'ia"TftB<3e>^TIg"M" 

25© GOTO120 

3©© NEXTNM,SG 

39© POKEU+21,6 

-40© P R I H T ■ ' L I'IL'IL'IJI'] GRATULATI O N ! !" 

41© PRIHT" = = = = = = == = = = === = =: = = = = = = = = •• 

42© PRIHT" [fflimilJ SIE HABEN DAS ZIEL ERREICHT" 

43© PRIHT"tU UND ALLE INVASOREN VERNICHTET" 

44© ZB=1880~VftL<TIS) - IFZB<OTHENZB=© 

45© PRIMT""ta DAS ERGIBT EINEN PUNKTESTAND UON = " 

46© PRINT"LÜ!MllMJSCORE = "TR 

470 IFZB>flTHEMPRIMT" L'lilll1 ZEITBOHIIS :"ZB 

480 IF ZB+TR>HITHE«HI=2B + TR:PRINT"öl!!3 NEUER L3HIGHSC0RE : "HI 



SO© F 
51© G 

1600 

1002 

1004 

1009 
O 

1010 
SI+6 : 

1020 

110© 

1110 

112© 
122© 
123© 
124© 
125© 
126© 
1737 
1798 
1799 

1800 
1605 

1818 
182© 
1830 
185© 
1853 



0RI=1TO6800 : NEXT 
0TO4800 

: REM 

: REM *w*M* DEFINITION CANFANG> *«* 

= REM 

F<©>=S=F<1>=6 = F<2>=11 =F<3>=6 - F<4>=7 : F(5)=9 - F<G>=1 : F<7>= 



SI=5 
L = SI 
RETU 
Tl = l 
Tl = 2 
Tl = 2 
FORI 
FORI 
POKE 
POKE 
RETU 
= RE 
: RE 
RE 
POKE 
FORI 
FORI 
POKE 
NEXT 
POKE 
AA=i 



4272 
+ 24 
RH 

4^ T2 
52 - T 
54- T 
= 491 
= 431 
253, 
4316 
RN 

M - - 
M 

M 

L, 15 
= 431 
= ©TO 
L, 15 
K, I 
W, : 
00 + M 



:FL=SI :FH=SI+1:TL=SI+; 



TH=SI+3 = W=SI+4-fl=SI+5 : H = 



= 15 = G0T01220 

2-253:GOTO1220 

2=255 i G0T0122© 

54T049153 = POKEI , 1 = NEXT 

62T049175 : POKEI , EE = NEXT 

4- POKE254, © 

3, 1 :POKE4916i, 1 i POKE49153, 5 



*»* ZERSTOERUNG **** 



:POKEA, 47 = POKEH, 47 POKEW, 123 
52 T ©431 5 3 = POKEI ,0-NEXT 
15 : POKE5328G, I :P0KE53281 1 I = FORK=lT©l© 

:POKEFH, INT(RHD(0>*i08) = POKEFL, INT(RNI><0)*255) 



POKEA, © 
AL (TI$> 



ftB$=STRS<Aft> = AA5=RIGHT5(ABS,LEN<AB$)-1) 
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±855 TIS = RIGHTS( ,, BO80ee" + flAS, 6> 

1860 SS=SS-I : IFSS=OTHEH246e 

±878 WW=WW-1:60T0308 

±997" : REM 

±998 = REM *t* SCHUSS **** 

±999 = REM 

2008 IF<PEEK<M+2i)ÄHD2)=6THEHPOKEU+2i, PEEK<M+21>+2 

2810 P0KEM+2,PEEK<M> = POKEU+3, PEEKCU+1) = POKE49153, 5 :POKE254, O 



202O 
2830 

HEXT 
204© 
2050 
2480 
2-482 
2404 
2410 
2420 
2 43 9 
2440 
2445 
245Ö 
2460 
2470 
2480 
3O80 
3002 
3005 
30OT 
3608 

3010 

3012 
3815 
302O 
3025 
302V 
3030 
304© 
3045 
3050 

3868 

3078 
3075 
3888 
3890 
3208 

4008 

4O05 
4O10 
4015 
4828 

m L3 

-4O30 

13 ! 
48 40 

13 5 
48 5 

13 ■ 

4O60 

13 ! 

4870 

408O 
4830 
410© 



• ! ! GAME OUER ! ! ! GAME OUER" 



TR 



NEUER HIGHSCORE 



HI 



F0RI=15TO0STEP-4 

PÖKEL, I :POKEA, 15 : POKEH, 8 :POKEFH,46 = POKEFL, 200 = POKEW, 129 

POKEM,0:POKEA,0 
RETURH 

: REM 

REM k kk GAME 0MER *t*w 

= REM 

PRIMT"L" 
FORI=1TO40 
PRIHT"ÜI«1SGAME OUER 
HEXT 
POKEU+21, Q 

p r i h t - 'tAsammü score 

IETR>HITHENHI=TR = PRINT"ÜIÜ 

FORI=1T03000:HEXT 
GOTO4000 

REM 

REM MMMMM ftlJFBfSÜ MM-M-SCX 

REM 

PRIHT*VTftB( 29 > "HIGHSCORE = 
PRINTTABC3B >"L3"HI 
PRINT"«Ü" = PRIHTTAB<29>"*LÜÖ 
PRIHTTftß<29>*"L3 
PRIHTTABC29VL3 PUNKTE r 
PRINTTftB<29>"L3 
PRIHTTfiB<29)"ia 
PRINTTAB<29>"L3 
PRINTTABC29VL3 ZEIT 
PRINTTAB<29>* , [3 
PRIHTTAB<29>*'L3 
PRIHTTAB<29>"13 

PRINTTAB<29>"13 WELLE 

PRIHTTAB<29)"ia 

PRIMTTABC29)"L3 «"SG"1I /"MW'IB 
PRINTTAB<29}"L3 ■!"" 

PRINTTftBC29)"Ö]"; :EORI=iTOSS 
RETURN 

- REM 

REM mkmm ERKLAERUNGEN wmcw 

: REM 

POKE53280, 15 i P0KE53281, 15 = POKE53269, 
PR I NT"l I'T» »ttfr»IMM ü !3 ? Ü ! 13 ■ 




PRIHT M # 



HEXT 



13 5! 13 



13 



PRIHT-llHJUa ■■ 

! 13 ■" 

PRINT"HIII1:J m 
13 ™" 
PRIHT" >llltia m 

PRiHT" »iüia ■■ 
■ 13 ■"'" 

PRIHT"UL**Jfcl3 m !3 

L3 *■" 

PRIHT"*|dtaaSPACE" = PRIHT"MaSPftCE" 

PRlHT"L'l'lltiii>tllCOPVRIGHT BV R. SCHOLZ" 
PRIHT"Üia SCHIESSEH SIE DIE INVASOREN MIT IHRER" 



13 


ü 


13 ■■ 


13 "5 


13 


5 


13 


■! 


13 


— 


13 


13 


- 


13 m 


13 


- 


13 


s 


13 

m 


- 


13 


- 


13 


- 


13 - 


L3 - 


13 




- 


13 


■H 


13 




13 


H 


13 »* 


L3 55 


13 


?! 


13 


- 


13 


- 


13 


i 


«■ 


13 


§■ 13 


m 


13 


- 


13 


- 


13 
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4116 PRINT"Ü] KANONE AB C JOYSTICK: PORT 23" 

4126 PRINT"Ü] UORSICHT ! ! DIE EINDRINGLINGE GREIFEN" 
4136 PRINT"ÜJ IN IMMER SCHNEELEREM UERBAEHDEH AN." 
4146 PRINT"Ü*JUUfc*ftftJUIEL ERFOLG !■■!" 

4156 IFHI06THEN423Q 

42O0 PRIWT-L'l-l-?>tHi>iH»>H^»HiHINBITTE WARTEN" 

4226 RETURN 

4236 PRINT"ÜIi**ÄlÜfcJ'F±' = NEUES SPIEL" 

4246 eETflS:IFAS="i"THEHG0T016 

4256 GOTO4240 

999? = REM 

9998 = REM «*»* SPRITE-DATAS kmmm 

9393 : REM 

18888 DATA 0,6,0,0,8,0,0,0,0,0,8,0,0,0,0,0,8,0,0,8,0,0,8,0,0 

,21,0, 0, 21,6, 6 

10016 DATA 55, O, 32, 24T, 194, 32, 65, 66, 20,05,69,20,213,265,31,2 

13, 253,21,05 

16026 DATA 85, 22, 1TO, 165,21,S5,S5, 3,255, 240, 59, 18T, 18? 

1O021 REM -- 

10O23 REM SPRITE 13 

16826 REM 

10830 DATA 8,8,0,8,8,0,0,55,0,0,29,0,0,53,0,8,29,8,0,34,0,0, 

8,0,0,0,6 

10046 DATA 8,6,8,0,0,0,0,0,0,6,0,0,0,0,0,0,6,0,8,6,6,6,6,0,0 

,0,6,0,0,8,8,8 
1Ö056 DATA 6,6,0,0 

10O51 REM 

10O53 REM SPRITE 14 

16056 REM 

10O60 DATA 1, -4, 16, 4,68, 64, 0, 21, O, O, 20, 0, 10, 1?0, 160, 40,40,40, 

168,48,42,176 

16676 DATA 1T8 , 176 , 168 , 6 , 42 , 168 , 6 , 42 , 42 , 178 , 168 , 2 , 176 , 128 , 42 

,176,168,32,130 

10080 DATA 8 I 8-4,I30 l 2i i fi4,i30,21,0,I30,0,8 J 130 J 8,5,65,80,5,6 
5, 80, 0,6,0 

10081 REM 

10O83 REM SPRITE 15 

18086 REM 

10O90 DATA 4,17,1,4,17,4,1,17,4,1,17,16,18,170,160,46,40,40, 
168,235, 42, 178, 176 

18100 DATA 170,168,8,42,168,204,234,42,170,168,2,170,128,42, 
170,16 8,32,138 

18110 DATA 8,33,65,72,33,65,72,32,6,8,32,8,8,84,8,21,84,8,21 
,8,6,6 

18111 REM 

18113 REM SPRITE 252 

18116 REM 

1Ö120 DATA8, 8, 6,2,170, 128, 42, 178, 168, 163, 48, 262, 16 3, 48,282, 1 

70,178,170,168 

16136 DATAO, 42, 168, 8, 42, 42, 178, 16 8, 0, 166,0, 8, 154,6, 6, 166, 6,8 

,154,6,8,166,8,8 

18148 DATA154, 0, 2, 178, 128, 2, 138, 128, 2, 130, 128, 3, 195,192,3, 19 

5, 192, 8, 8, 

10141 REM 

10143 REM SPRITE 253 

18146 REM 

1015O DATAO, 0,0,2, 170, 128, 42, 17© , 168, 168, 48, 18, 163, 235,282, 1 

63,235,2 82,176 

10168 DA TA170^1 70, 170, 170, 170, 178, 178, 17 0, 160, O, 10, 160, 221, 1 

8,168,6,10,170 

16176 DAT AI 78, 170,42, ISO, 168, 6, 156, 6, 2, 178, 128, 2, 138, 128, 2,1 

38, 128,3, 195,192, 3 

18180 DATA195,192, 8, 8, 6 

16181 REM 

16183 REM SPRITE 254 

18186 REM 
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10190 DftTAi, 1,0,4,68,64,8,68,0,0,16,6,8,68,0,16, 176,128,35, 3 

5, 32, 42, 170,160 

102OO DftTA42,2 J 160 J 40,0 P i6ß,8 J 0,128,10,2 r 128,2,170,0,0,184,8 

,0,18-4,0,0,104 

1021O DftTfl0,2 ; I3G,0 ; I70 ; 254,lT0,170,170,170,68,68,68,0,0,0 

18211 REM 

10213 REH SPRITE 255 

18216 REM 

10228 DAT*©, 8,0, 8, 0,8,0, 68, 8,8, 68, 0,0, 68,8, 18, 178, 128, 35 , 35, 

32, 42, 178, 168 

162 38 DftTA42,lT0,160,40,0,±68,8,0,128,i8,178,128,2,170,0,0,l 

84,0,8,184,8,8,184 

18248 DATA8,2,186,6,170, 254, 178', 178,170, 178, 17, 17, 17, 8, 8, 8 

1Ö998 : 

18994 REM MC-ROUTINE 

18998 = 

11888 DATA 169,8,133,251,166,251,183,8,192,133,252,281,8,248 

,187,222,16,192 

11818 DATA 288, 182, 189, 8, 192, 157, 16, 192, 216, 24, 138, 101, 251/1 

78,164,252,185,24 

11820 DATA±32, 41, 1,248, 15, 189, 8,288, 216, 24, 181, 253,157, 8, 288 

,288, 3, 76, 288, 192 

116 38 DftTftl85, 24,132, 41, 2, 240, 15, 189,©, 288, 2 16, 56, 229, 253, 15 

7,0, 208, 208, 3, 76 

11048 DATA20O,i92, 185, 24, 192,41,4, 248, 15 

11845 DATA 189,1,288,216,56,229,253,157,1,288 

11850 DATA208,3, 76, 200, 132, ±85, 24, ±92, 41, 8, 240, 15, 189, 1, 288, 

216,24,101,253,157 

11868 DAT AI, 288, 288, 3, 76, 288, 192 , 238 , 251 , 169 , 8 , 197 , 251, 24B, 3 

,76,68, 192, 76, 13 

11878 DATA193, 162,1, 228,251,288,7,169, 8, 157,8,192,234,234, 76 

11875 DATA 186 , 192 , 234, 234, 4; 288 , 6 , 286 , , 288 , 286 , 8 , 288 , 173 
11888 DATA8, 228 , 41 , 16 , 288 , 11 , 169 , 5 , 285, 1, 192,248, 4, 169, 255, 1 
33, 254, 76, 49, 2 3 4, 8 
±±685 DATA8, 8, 8, 8, 8, 8, 8 

11890 DATA±28,±69,64, ±4± f 28, 3, 169,192,141,21,3, 88,96,173,8, 2 
28,41,8,288,6 

±±±8© DATA238, 8, 288, 238, 8, 288, ±73, 8, 22©, 41,4,208,6, 206, ©, 2©8 
, 206, ©, 208, ±73, 

±±±±0 BATA220, 4±, 16, 288, 11,169, 5, 205,1, 192, 248, 4, 169,255, 133 
, 254, 76 

11128 DATA49, 234, 8, 8, © 
11138 DATA3, 9, 1, 5, 4, 6, 2, 18 

20880 : REM 

20O04 - REM ******** EIHPOKEM xkkx 

2O086 : REM 

28818 FORI=0TO62READQ:P0KE704+I,-Q:MEXT 
2002© FORI=0T862: READQ = P8KE832+I , Q - HEXT 
28838 F0RI=8T062 = READQ : POKE896+I , Q- HEXT 
28848 FORI=8T862 r READQ : POKE968+I , Q :HEXT 
26858 FORI-0TO62 = READQ i POKE 25 2*64+1 , Q = HEXT 
28868 FORI=8TO©2 = READQ = P0KE253*64+I ,Q = HEXT 
20O70 F0RI=8TO62 - READQ : POKE254*64+I , Q = HEXT 
28680 FORI=0TO62:READQ:POKE255*64+I,Q--HEXT 
281Ö© FORI=49216TO49470 : READQ - P0KEI , Q : HEXT 
28128 FORI=49152T849176=POKEI , 8 : HEXT 
28130 F0RI=49177TO49i84: READQ - POKEI , Q : HEXT 
21888 RETURN 
R E A D V . 



VC-64 



18 



Computronic 



Lift Bär 



Lift-Bär 

Das Programm ist für den TI 99/4 A 
mit Extended BASIC und Joystick ge- 
schrieben. 

Nach dem Eintippen, oder laden wird 
es mit RUN gestartet. Nach einer Pau- 
se von ca. 3 Sekunden wird der Bild- 
schirm gelöscht. Dann belegt der 
Rechner den Grafiksatz um. 
Der Bildschirm wird jetzt schwarz, 
und das Titelbild erscheint in Mufti eo- 
lor Großbuchstaben. Dabei wird Song 
of Joy gespielt. 

Sie können mit der Taste „ J" eine kur- 
ze Spielanleitung abrufen. Bei jeder 
anderen Taste erhalten Sie keine 
Spielanleitung. 

In der Stadt wird ein Neubau errich- 
tet. Es ist kurz nach Feierabend und 
die Maurer haben ihre Arbeit beendet. 
Sie haben jedoch einen Teil ihres 
Werkzeuges vergessen und einen 
kleinen Bären beauftragt das Werk- 
zeug für sie zu holen. Bei dem Werk- 
zeug handelt es sich um 2 Hämmer, 2 
Gabelschlüssel und 2 Schraubendre- 
her. 

Die Aufgabe hört sich zwar leicht an, 
ist aber gar nicht so einfach zu lösen, 
da erstens der Bär nicht weiß wo das 
Werkzeug versteckt ist, zweitens die 
einzelnen Etagen des Neubaues nur 
mittels auf- und abfahrenden Fahr- 
stühlen zu' erreichen sind und drittens 
nur eine befristete Zeit zur Verfügung 
steht. 

Sie können den Bären mit dem Joy- 
stick nach rechts und links bewegen. 
Achten Sie jedoch darauf, daß die Ta- 
ste „ALPHA LOCK" nicht gedrückt 
ist, da sonst die Joystick abfrage nicht 
richtig funktioniert. Zum Betreten ei- 
nes Liftes bewegen Sie den Bären in 
die Richtung, in der Sie den Lift betre- 
ten wollen, immer dann, wenn der Lift 
gerade vor dem Bären ist und in die 
gewünschte Richtung fährt. 
So lange der Bär im Lift ist, und Sie 
nicht aussteigen wollen, muß der Joy- 
stick in der neutralen Mittelstellung 
stehen. 



) 



r 



TI99 



r 




Zum Verlassen eines Liftes drücken 
Sie den Joystick wieder in die ge- 
wünschte Richtung. 
Der Bär soll ja, wie schon zuvor er- 
wähnt Werkzeug suchen. Das Werk- 
zeug ist in den 12 Fragezeichen ver- 
steckt. Zum Aufheben eines Fragezei- 
chens führen Sie den Bären genau 
darüber und drücken dann den Ak- 
tionsknopf am Joystick. 
Wenn sich unter dem Fragezeichen 
ein Werkzeug befindet so ertönt ein 
Multiklang Gong und das Werkzeug 
erscheint in der oberen linken Bild- 
schirmecke. Befindet sich unter dem 
aufgenommenen Fragezeichen jedoch 
kein Werkzeug, so werden Sie ein 
Kratzen vernehmen und es kann sein, 
daß die Wände des Neubaues versetzt 
werden. Dies kann Ihnen einen gün- 
stigeren Weg verschaffen, es kann Ih- 
nen jedoch auch den Weg versperren, 
so daß Sie einen Umweg zum näch- 
sten Fragezeichen wählen müssen. 
Wenn Sie alle 6 Werkzeuge gefunden 
haben, so bekommen Sie zu Ihren 
Punkten den verbliebenen Zeitbonus 
gutgeschrieben, und es geht mit der 
nächsten Runde weiter. 
Insgesamt wird der Schwierigkeits- 
grad 7 mal erhöht. Danach bleibt die 
Schwierigkeit konstant. 



Für jeden gefundenen Hammer be- 
kommen Sie 80 Punkte, der Gabel - 
Schlüssel bringt 100 Punkte und der 
Schraubendreher sogar 120 Punkte. 
Für alle 5000 erreichten Punkte erhal- 
ten Sie ein Bären-Bonusleben gutge- 
schrieben. Der Bär verliert ein Leben 
wenn er 

1.) zu hoch oder zu tief aus dem Lift 
springt. 

2.) gegen eine vertikale Mauer läuft. 
3.) mit dem Lift versucht durch eine 
Mauer zu fahren. 

4.) den Bildschirm nach irgend einer 
Seite verläßt. 

5.) wenn der Zeitbonus auf abgelau- 
fen ist. 

Die Fahrstühle fahren immer auf und 
ab. Bei jedem Richtüngswechsel wird 
der anfänglich 3500 Punkte zählende 
Zeitbonus um 50 Punkte verringert. 
Mit steigendem Schwierigkeitsgrad 
.fähren die Lifte immer schneller auf 
und ab. 

Somit läuft auch der Zeitbonus immer 
schneller, und das Ein- und Ausstei- 
gen wird immer schwieriger. Nachfol- 
gend ist das Programm in groben Zü- 
gen beschrieben. Den Exakten und 
strukturierten Programmaufbau kön- 
nen erfahrene Programmierer der 
beigefügten Zuordnungstafel entneh- 
men. 
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1 09 ! ÖP- 

1 18 REM %%%%%%%%%%%%%%%%%%%%%%%%%%-i;X% 

120 REM * LIFT - BflER * 

130 REM * ■-■ • * 

140 REM * Ein SPiel fu.er TI 99.-"4 fl * 

150 REM * in TI Exfcewted BASIC * 

168 REM * mit Joystick zu. steuern * 

170 REM * * 

180 REM * <c> 1984 by Vc.lk.er Becker * 

190 REM % Steinbache-r Str. 10 * 

200 REM * 6370 Oberurs-el 6 * 

210 REM *********####*#**##*##*#**3f[*# 

220 REM , 

?30 REM 

240 !8P+ 

250 OPTION BR3E I 

260 DIM VFELDC6),XFELD<9),SFC4),WFELD(3) 
R 




270 GOTO .3 10 
RUNDE •■■■ S ■•• ST 
280 CALL RSCIISET 



r: 



K 



MOT 

7 



F = ■■ I 
X = = XI ' - X2 
■• CALL CO INC = : CALL COLOR 
CALL GONG = ■■ CALL HCHflR 
ALL MAGNIFY ■■ ■■ CALL MELODY 
CALL PUNKTE ■■ •■ CALL SCREEN 



CALL 
CALL 

i • C 



= •■ CALL SPRITE = ■ CALL TITEL ■• ■ CALL VCHAR 
16,6, 1,16,7,1,16,8..!, 16)" CALL COLOR-T.3, 16, 1,4, 



CALL HCHflRC 1,18, 112,1 2 ) 



CALL VCHARC 1 , 32 , 11 2 , 24 ) 



6 • : BER ■■ ■ BONUS = = BV 
SVRR = ■ T ■■ ■■ V ■■■■ VWERT 
CALL BAER > > CALL CLEAR 

DELSPRITE = ■■ CALL EINLEITUNG : = CALL GCHAR 
290 CALL JOYST : : CALL KEY = = CALL LOCHTE = 

MOTION - ■■ CALL PATTERN < = CALL POSITION 
300 CALL SONGOFJOY = = CALL SOUND 
AI L ZEIT ■> ■■ !SP- 
310 CALL CLEAR •■ CALL C0L0RC5,1 
16.1,2,14,1,9,6,16) 
320 RflNDQMIZE 

330 CALL CLEAR = •■ CALL RSCIISET 

MB CALL CLEAR ■■ ■ CALL TITELO<FELDO,5,SFO,0,2 V •■ CALL CLEAR 
350 CALL KEY<5,T,S>" IF T»74 OR T=106 THEN CALL EINLEITUNG 
360 CALL CLEAR 
370 CALL SCREENC2) 
380 FOR 1=4 TO 20 STEP 4 
390 CALL HCHARa,4,112,12) = 
400 NEXT I 

410 CRLL HCHAR<24, 1,113,32) 
420 CRLL VCHARC 1,1,112, 24 ) ■■ 
430 ! (2P+ 

440 DATA 1 , 8 , 1 20 , 1 , 1 2 , 1 28 , 5 , 6 , 1 28 ,5,11,1 36 , 5 , 23 , 1 20 ,'s , 27 , 1 36 ,9,4 , 1 20 , 9 , 29 . 1 28 
450 ! (2P- 

460 DATA 13,9,128, 13, 13, 136. 13, 18, 120, 13, 24, 136. 17, 12, 120, 17,22, 128, 17.27.136.21 

,4,136,21,15,128,21,28,120 

470 DATA 8,2, 120,8, 16, 120,8,30, 136. 12, 2, 128, 12, 16, 136, 12,30, 128, 16,2, 136.. 16, 16, 1 

28,20,30,120 

480 RESTORE 44© 

490 FÖR 1 = 1. TO 18 ■■■■ READ A,B,C = 

500 FOR 1 = 1 TO 9 ■■■■ READ A,B,C = 

519 CALL COLORC 11,7,2, 13,7,2, 12,1 

^20 RUNDE=1 ■■ ■■ BER-4 •• ■• Z=3500 = ■■ 

) = •■ CALL BAER< BER ) 

530 CALL MAGNIFY': 3) 

540 CALL SPRITE<#2, 116, 13, 177,9 

*i50 M0T=RUNDE+4 - 

560 DATA 3,10,3,26 

570 GOSUB 820 

580 BV=128 

590 CALL SPRITES #1 

609 OH ERROR 730 

61@ CflLL ZEIKZ) 

620 REM Ha u.P t schleife 

£30 V«V+1 =: CRLL POSITION* #3-, X, Y >: = IF X>20O THEN GOSUB 940 

640 CALL -JOYSTa,X,Y>= : IF X=0 THEN %m ELSE IF X=-4 THEN CRLL RATTERN-: #1 , 124 )EL 

SP CALL PRTTERH<# 1,132) 

650 CALL 80UND< -5,523,0) 



CRLL. VCHRR(A,B,C,3)^ NEXT I 



CALL HCHRR(A,B,C 
1,14, 1, 1,9,6, 16) 
P=0 = = BONUS* 1 ■■ 



l ">•■ ■■ NEXT I 

CALL SCREEN* 5) 
CRLL PUNKTEN); 



CALL ZEIT<Z 



#3 ,116,1 3 , 1 , 1 2 1 , #4 , 11 6 , 13,1 77 , 233 ) 
CRLL MOT I ONC #2 , -MUT , , #3 , MUT , , #4 , -MOT . ) 
7, 9, 7, 25, II, 13, 11, 23, 15, 11, 15, 21, 19, 8, 19, 23, 23, 13, 23, 22 



124,11,169,41) 
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= = CRLL GCHRR<X,Y,X1 j 
IF X1=BV OR X2=BV THEH 739 



CRLL BRERCBERV: CRLL TITELCXFE 



66fl CRLL MOT1ONC#1,0,2*X> 

•570 CRLL COINC<-RLL,STV' IF ST THEN 970 

680 CRL L POS I T 1 0N< # 1 .- X .■ V > : : YM X+7 V8+2 = : Y=C V V8+ 1 

f"98 IF X1=BV OR Xi=il2 OR X1 = Ü3 THEH 780 ELSE 730 

700 CRLL. GCHflR< X-2, Y, XI > = = CRLL GCHAR< X--2, Y+l , X2 > = : 

710 CRLL KEYn.,T,S::>: = IF T=18 THEN 1080 

720 GOTO 620 

730 FÜR 1=1 TO 4 ■■•■ CRLL MOTIOHC #1 , 0, > = = HEXT I 

740 CRLL PRTTERH<#1.- 14@) 

750 CRLL MELODY 

760 BER=BER-1 ■■ ■■ CRLL 8RER<BER> 

7?tt IF BER<0 THEN CRLL DELSPRITE< ALL.V = BER-0 

LDC > , i , SF< V. - 1 , 5 V ■■ GOTO 370 

780 IF SVflR THEH 2=3500 = •■ SVRR=0 = = GOTO i.370 

790 CALL J10T 1 ONC #2 , -MOT ■■ -• #3 , MOT , , #4 , »NOT , ) 

860 3VflR=0 

8t GOTO 590 

820 RESTORE 560 

830 FÜR 1=1 TO 6 

840 VFELIX I >=2 

8*56 NEXT'l 

860 FOR 1=1 TG 12 

870 READ fl,B 

880 F*INT<RND*5+1.4V * IF VFELD<F5=0 THEH 880 

890 VFELD<F>*VFELD<F>-1 

900 CRLL HCHHRCR.BjF+95) 

910 HEXT I 

920 FOR K=i TO 3 - WFELfXK>=0 

^30 RETURN 

940 IF V<5 THEH RETURN ELSE V=0 

,-MflT,fl) 

950 2=Z-5ö ■■■■ CRLL ZEIT<ZV 

960 RETURN 

976 FOR 1=2 TO 4 

986 CR!...!... CO I NfX # 1 , # 1 , 1 6 , ST > 

990 HEXT I 

1800 GOTO 729 

1810 CRLL POS I T 1 0N< # I , X , Y ) ■■ •■ CRLL LOCRTEC # i , X , Y ;■ 

1 020 I F I -'2- I NK I /Z >=0 THEN CRLL MOT I ONC # 1 , -MOT , ÜELSE CRLL HOT 1. 0H< # i , MOT , > 



HEXT K 
MOT=-MOT 



ALL MOT I ONC #2 , -MOT , , #3 , MOT , , #4 



IF Z<-0 THEN SVAR--1 



IF ST THEH 1010 



GOTO 730 



1 038 CRLL POS I T 1 0N< # 1 .■ X .. Y ) = ■ CRLL SOUND«:: -258 



-J£.0' 



X=X/8+l 



Y=Y/8+l 



CR 



LI. GCHRR(X:.Y,X1V= = CALL GCHRR< X.. Y+l , X2 > = = IF X1=BV OR X2=BV THEN 736 

1040 CRLL JOYST-r 1,X,Y)= : IF X=0 THEH 1030 

1.850 CRLL P0SITI0NC#1,X1,Y> 

1R60 IF X=-4 THEH CRLL LOCRTEC #1 , XI .. Y-18 )ELSE CRLL LOCHTE-:: #1 , XI - Y+l 8 ) 

1070 GOTO 720 

1880 FOR 1*1 TO 4 ■■■ CRLL MÖTION<#I .0,0V ■■ NEXT I 

1090 VWERT=0 

1100 CRLL POSITIONC#i,X,YV ■■ X«<X+7V8+1 •• ■■ Y=<YV8+1 

1110 CRLL GCHRRC. X , Y , X 1 ) = : CRLL GCHflRC X , Y+ 1 , X2 ) 

1120 IF XK102 RND Xl>95 THEH VWERT*Xi 

1130 IF X2<102 RND X2>95 THEH VWERT=X2 

1.140 TF VWERT-0 THEH 1170 

1.150 VWERT=VWERT-95 

1160 OH VUE RT GOSUB 1190,1210,1220,1 230 ,1240.1? 5Pi 

1 1 70 CRLL MOT 1 0H< #2 , ~MOT , , #3 , MOT , , #4 , -MOT , > 

1.180 GOTO 720 

1190 CRLL. HCHRR(X,Y,32,2::' 

1 200 CRLL CHLOR»; 1 3 -■ 7 , 2 , 1 2 , 1 , 1 , 1 4 , 1. , 1 ':> ■■ ■■ CRLL SOUND«:: -500 , -7 , > 

1 2 1. CRLL HCHRRC X , Y , 32 , 2 ) = = CRLL. CÜLORC 12,7,2,13,1,1,14,1,1V 

7.0V ' BV=120 '■ ■ RETURN 

1 220 CRLL HCHRR( X > Y , 32.-2 ') ■ ■ CRLL CÜLCRC 1. 4 , 7 , 2 , 1 3 , 1 , 1 .. 1 2 , 1 , 1 > ' 

?*&)•■•■ BV-136 ■ ■ RETURN 

1230 CRLL HCHRR<X,Y,32,2V : MFELDC 1 )=WFELD< 1 )+l :: GOSUB 1260 
1 240 CRLL HCHRRC X , Y , 32 , 2 ) '■ WFELDC 2 )=WFELD< 2 )+ 1 = : GOSUB 1 260 
1250 CRLL HCHRR<X,Y, 32,2V >. WFELD<3 ^=WFELD<3 >+i ; = GOSUB 1266 



ÖV=128 : : RETURN 
CRLL SOUND-:>500,- 

CALL SOUNDC-500,- 

RETURH 
RETURN 
RETURN 
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1279 P*P+20*VWERT : : CALL PUNKTE* FO 

1280 IF BONUS*5000<aP THEN BER=BER+1 : = CALL BRERCBER)- B0NUS=B0NUS+1 
1290 CALL GONG 

1300 FOR 1*1 TO 3 

1310 IF WFELDCIK2 THEN RETURN 

1320 NEXT I 

1330 RUNDE=RUNDE+1 = : IF RUNDE >8 THEN RUNDE*8 

1340 P^p+z * : CALL PUNKTE<PV : CALL ZEIT(6>= ■■ Z»3500 

1350 IF BONUS#50S0<=P THEN BERa=BER+l '■ ■ CALL BflERC BER > * ■= BONUS«BONUS+l 

1360 CALL SONGOF JOVC SFC :0 

t 370 CALL DELSPR I TE-r # 1 > ■ ■■ CALL HCHRRC 1 .■ 4 , 32 , 3 > = : CALL HCHARC 2,4, 32 , 3 > 

1380 CALL C0L0RC13, 7, 2, 12, 1,1,14,1,1) 

1390 GOTO 540 

140Ö !(?P+ 

1419 SUB SONGOF JOV<B< Y> 

1420 GOTO 1430 ■ ■■ AZ -' I = = J - K = = Ml •• : M2 ^ 3TV = : !@P~ 
1 436 DATA 1 , 1 95 , 246 , 293 , 39 1 , 2 , 39 1 , 493 , t , 440 , 523 , 1 , 493 , 587 

f 440 DATA 1 , 1 84 , 26 1 , 293 , 369 , 1 , 493 , 587 , 1 , 440 , 523 , 1 , 39 1 , 493 , 1 , 329 , 440 

f 450 DATA 1 , 1 95 , 246 , 293 , 391,2 , 246 , 39 1 , 1 , 26 1 , 446 , 1 , 293 , 493 

1460 DATA 1/184,261,293,369,2,277,493,2,261,440 

1 470 DATfi "1,1 95 , 246 , 293 , 39 1 , 2 , 39 1 * 493 , 1 , 44S , 523 , 1 , 493 , 587 

1 480 DAT A 1 , 1 84 , 26 1 , 293 , 369 , 1 , 493 , 587 ,1,440 , 523 , 1 , 39 1 , 493 , 1 , 329 . 440 

1 490 DATA 1 , 1 95 , 246 - 293 , 39 1,2, 246 , 39 1 , 1 , 26 1 , 440 , 1 , 293 , 493 

1 500 DATA 1 , 1 84 , 26 1 , 293 , 369 , 4 , 26 1 , 440 ,1,1 95 , 246 , 293 . 39 1 . 4 . 246 . 39 1 . 

1510 RESTORE 1430 

1520 flZ,STV=0 

1530 READ K ■■ ■■ IF K=0 THEN SUBEXIT 

1540 READ Ba>,B(2::',eC3>,B(4) 

1550 FOR I=i TD K 

1560 FOR J=l TO 4 

1570 STV*STV+1 * ■■ IF STV>HZ THEN PFAD RZ ■ Ml ■ M2 > ■• RTV=1 

1 580 CALL SOUND< 400 , Ml , 1 , M2 , 9 , ß( J > . 5 ) 

1590 NEXT J : ■■ HEXT I 

1600 GOTO 1530 

1610 !SP+ 

1620 SUBEND 

1 630 SUB T I TEL< A( J> , KV , BC 3 , S VHP , FARBE :- 

1640 GOTO 1650 •■ ■■ AZ = = I •• ■■ J ■■ ■■ K = = Ml ■• ■• M2 ■■ •■ S > ■■ STV = •■ T ■• ■• V • ■ SPI* ■■ ■■ 
i gp„ 

1650 CALL MAGNIFV<2>= = IF SVHR=0 THEN CALL CI.EAP ■■ •■ CALL SHREEW 2 ^ 

1660 DATA L,I,F,T,B,A,E,R ' " ' 

1 670 DATA G , A , fl , E , , V , E , R 

1 680 CALL HCHRR* 6 , 1 3 , 1 1 4 , 8 > •■ •■ CALL HCHRR< 7 , 1 3 , 1 22 . R V ■■ CR! L HCHARC ft . 1 3 , 1 29 . 8 ->■■ •■ 

CALL. HCHARC 9 , 1 3 , 1 37 , 8 ':■ : " 

1698 RESTORE 1660 

1700 IF SV AR THEN RESTORE 1670 

1710 IF SVflR=0 THEN DISPLAY RTU-8, 3>= "SPIEL RNl EITHNG "? <-\ ■■ N>" 

1720 Jal- 

1.730 FOR K=6 TO 8 STEP 2 

1740 FOR 1=13 TO 19 STEP 2 

1750 READ SPI$ ■■■■ CALL SPRITEC#J.HSCCSPI*>. FARBE .( K-n*R+l .< 1-1 >*fi+t ) 

1760 J-J+l "* ". 

1770 HEXT I 

1780 NEXT K 

1790 DISPLAY AT'::24,3>SIZE<23) = "i? 1984 BY Vfl| KFR BECKER" 

1800 DATA 7,10,11,12,3,13,8,14,5 

1810 RESTORE 1800 

1820 FOR 1*1 TO 9 

1838 READ flU) 

1840 NEXT I 

1 850 CALL COLOR< 1 1 , R'f 1 > , fl( 2 ■) , 12 , A< 3 ) •■ Ar! 4 > , 1 3 • A'- 5 ) , RC 6 > • 1 4 . RC 7 ') . R>: 8 > "j 

1860 RESTORE 1430 ' 

1870 AZ,STV-0 

1880 READ K ■ •■ TF K=9 THEN 1860 

f 890 READ B< 1 > .. B( 2 > , B( 3 ) , BC 4 ) 

1900 FOR 1=1 TO K 
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1910 FÜR ->i TO 4 

1.920 STV=STV+1 ■ ■ IF STV>flZ THEN READ AZ,M1,M2 == STV=1 

1930 CRLL 3OUND<600,f11,l,t^..0,B<J>,5> : : CALL KEY<KY,T,S> : : IF SO0 THEN 1988 
1949 FÜR V=9 TO 2 STEP -1 == H< V)=R< V-l ;■= : HEXT V '■ ■ HC 1 }»R< 9 ::< 
i 930 CFILL COLOR< 1 1 , fl< 1 > , A< 2 > , 1*2 .. flt 3 > , RC 4 :i , 1 3 , fl< 5 '.:■ , f\< 6 > , .1 4 , R< 7 > , R( 8 > > 
i960 NEXT J : : HEXT I 
1970 GOTO 1880 

1980 CRLL DEL3PRITE<flLL>" CRLL CLEHR 
1990 CRLL COLOR< 11,1,1, 12, 1,1, 13, 1,1, 14, 1 , 1 ) 
2A00 U5P+ 
201.0 SUBEND 
2020 SUB s PUNKTE« P ■■ 
2830 !SP- 

2940 D I SPLRY RTC 1 , 23 >S I ZE< 5 ) ■■ US I MG " ##### " = P = = C ALL HCHRRC 1 , 24 , 38 > 
2050 !(JÜP+ 
2060 SÜßEND 
2070 SUB 4 -ZEIT<Z) 
2080 !SF- 

2090 DISPLAY AK1,17::'SI2EC4> = USIHG "####"=2 ■■ ■■ CRLL HCHAR< 1 , 1 8 , 35 '> 
2100 I-SP+ 
2110 SUBEND 
21.20 SUB BflERCBER) 
2130 !GP- 

2 1 40 DI SPLRY RT(1 , 1 2 ?S I ZE< 2 ) = US I HG " ## " = BER = : CRLL HCHRR< 1,13 , 36 > 
2150 !GP+ 
2160 SUBEHD 
2170 SUB MELODY 

2130 GOTO 2190 ■■ ■■ R == I •■ ■• L ■■ ■■ !SP- 
2 l 90 DATA 750 , 1 95 , 258 , 220 , 500 , 233 , 580 , 1 95 , 1 800 , 277 
2200 RESTORE 2198 

2218 FOR 1 = 1 TO 5 ■ ■■ READ L..R == CRLL SOUHD<L,R.0>= = HEXT I 
2220 \®P+ 
, 2230 SUBEHD 
2240 SUB GONG 

2258 GOTO 2260 ■■ ■■ l ■■ ■■ !SP- 

2260 FOR 1=0 TO 9 ■■ CRLL SOUND«: -158, 329, n= = HEXT I 
2270 FOR 1*0 TO 9 ■■ '■ CRLL SOUNDC -150, 277,1, 329, 1 + 11 ;.< •■ HEXT I 
2288 FOR 1*0 TO 9 i: CALL SOUMX -150, 220, 1,277, 1 + 1 1> 329, 1+21 ->■•■■ HEXT I 
2290 !SP+ 
2300 SUBEHD 
2310 SUB EINLEITUNG 
2320 GOTO 2338 ■ ■ S ■ ■ T ■• ■ I SP- 
2330 CRLL CLEAR =< CRLL SCREENC5) 

2340 DISPLAY RTC 1,1)' "DIE MAURER HABEN VERGESSEN IHR WERKZEUG EIZUSRMMELN UNDDI 
ESE RUFGRBE MUSS JETZT DER LIFT BAER UEBERNEHMEN. " 

2350 DISPLAY RT<5,1> = "DRS WERKZEUG IST IN DEN .3. VERSTECKT. JE NACH WERKZEUG Gl 
BT ES =" 

2360 DISPLAY fi'TC 8, !) = "■: » 80 PUNKTE > * 100 PUNKTE * 

- 120 PUNKTE" 
2370 DISPLAY RTC 1 1 , 1 '>■• "JEDES WERKZEUG IST 2 MAL VORHANDEN. WIRD JEDOCH EIN •=». 

AUFGENOMMEN IN WELCHEM KEIN WERKZEUG IST SO WERDEN" 
2380 DISPLAY AK 15, 1 •-= "DIE WRENDE DES NEUBAUES VERSETZT." 

2390 DISPLAY RT< 17, 1 V "LIFT BAER VERLIERT EIN LEBENWENN ER IM FALSCHEN MOMENT A 
US DEM LIFT SPRINGT, EINE MAUER BERUEHRT ODER DER" 

2400 DISPLAY AT<21, 1 >:" ZEITBONUS ABGELAUFEN IST. BONUSLEBEN ALLE 5000 PUNKTE. H 
EUES SPIEL MIT AKTIONSKNOPF" 

2410 CRLL KEY<1,T,S>:: IF T=18 THEN SUBEXIT ELSE 2418 
2428 '6P+ 
2430 SUBEND 
2448 SUB ASCII SET 

2450 GOTO 2468 : = A$ •■ I ■• CALL CHAR = = ! @P- 

2460 DATA 003C66666666663C , 08 1 838 1818181 83C , 883C66060C 1 8387E , 883C6606 1 C06663C , 08 
0C 1 C2C4C?E0C8C , 087E607C8606663C , 001 C39607C66663C 

2470 DRTA 807E060C 1 830303 , 003C66663C66663C , 083C66663E860C38 , C3BD665E5E66BDC3 , FFC 
3999981999999.. FF83C9C9C3C9C983, FFC3999F9F9F99C3 
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2490 DRTR FF83C3C9C9C9C983 > FF8 1 9F9F339F9F8 1 , FF8 1 9F9F839F9F9F , FFC 1 9F9F9 1 9999C3 , FF 

99999981999999 , FFC3E7E7E7E7E7C3.. FFF9F9F9F9F999C3 

2490 DflTß. FF9993S78F879399 , FF9F9F9F3F9F9F8 1. , FFBD998 1 R5999999 .• FF9989898 1 9 1 9 1 99 , FF 

81999999399981 , FF839999839F9F9F, FFC39999999593C9 

2500 DRTfi FF83999983879399, FFC3999FC3F999C3 , FF8 1E7E7E7E7E7E7 > FF999999999999C3 , FF 

999999C3C3E7E7, FF999999R58199DB ■ FF99DBC3E7C3DB99 

2518 DRTR FF99DBr:3E7E7E7E7..FF81F9F3E7CF9F81,F"EFEFE0l3EFEFEF,FF18FF18FF18FF18,FFFF 

FFFF, 0008003C40380478, 1F306FD0RFR8RBRB.. RBRBR8RFR0BF80FF 

2520 DRTR F30CF60BF515D5D5.. D5D5I5F505FD01FF, FEFEFE00EFEFEF, 000009442810101 , FFFFF 

FFF , 8 1 82028402020 1 8 , 000003070D 1 F0307 , 8F 1 F 1 F0F07048C 

2530 DRTR 000080C0E0C080C .- E0F2F4E4D448C , FEFEFE00EFEFEF .• FFFFFFFF , , , 08080 1 8307088 1 

03 . 074F2F272B1283,'0080C0E0B0F8C8E, F0F8F8F0ES203 

2540 DRTR FEFEFE00EFEFEF .< FFFFFFFF . , , 0008980 4 8C 1 D373F , 3F 1D08 .■ 0080006 0F2FEF8F8 .» FRF 

EF8688478 

2558 

2560 

2578 

2589 

2598 

2600 



RESTORE 2460 
FOR 1=43 TO 57 ■■ 
FOR 1=64 TD 98 = 
FOR 1=112 TO 143 
FOR 1=96 TO 181 



RERD fl* = 

RERD m 
■ RERD fl$ 



CR I.J.... CHRRC I , R* 
CRLL. CHRRC I .■ R$ 
= CRLL CHRRC I. , J 



NEXT T. 
HEXT I 
• HEXT 



I 



CRLL. CHRRC I , "FFC399F9F3E7FFE- 



3C4281899191523C183418BCBEFE2436" 



HEXT I 
:rll CHRRC 38.. 



CRLL CHRRC 3! 
0E0C08" > 

26 1 8 CRLL CHRRC 40 , " 1 37EFE7E 1818181 830 1 898F87C0E070340E0703C 1 E 1 F0F07 ' 
2628 !HP+ 
2630 SUBEND 



"080C0EFFFF 
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ASC II - DEF 

Definition von Charakteren 

Schon lange habe ich mich darüber 
geärgert, daß beim.TI 99/4 A die Bele- 
gung der Grafik nach sehr mühsamer 
Hexadezimaler Belegung erzeugt, 
werden kann. Ich habe mir überlegt, 
ob es nicht eine andere Möglichkeit 
der Grafikbelegung gibt. 
Diese Möglichkeit habe ich gefunden, 
indem ich die Grafikgenerierung 
durch den Rechner selbst machen las- 
se. Dazu brauche ich nur mit dem Cur- 
sor in einer vorgegebenen Maske die 
einzelnen Kästchen schwarz zu fär- 
ben, und der TI generiert sich seine 
Grafik selbst. Danach kann ich die so 
definierte Grafik auf eine Datei ab- 
speichern und in einem Programm 
aufrufen. Dies hat noch den Vorteil, 
daß ich dadurch eine Menge Spei- 
cherplatz einspare, wodurch ich im 
Speicher noch längere Programme 
unterbringen kann. 



Ebenso kann ich den graphisch beleg- 
ten ASC II-Satz auf dem Drucker aus- 
geben und sogar eine Hardcopy mit 
dem vom Benutzer definierten Zei- 
chensatz erstellen. 

Aus diesen vorgenannten Betrach- 
tungen entstand nun das nachfolgen- 
de sehr leistungsfähige Programmpa- 
ket für den TI .99/4 A. 
Bei diesem Programmpaket wurden 
die Fähigkeiten des TI voll ausgenutzt 
und das mit Extended BASIC. Denn 
bei einer geschickten Programmie- 
rung kann auch in EX-BASIC eine 
hohe Rechengeschwindigkeit erreicht 
werden. 

So werden Anwender eines Disket- 
tenlaufwerkes eine Hardcopy mit vor- 
her definierter ASCII-Datei in ca. 
2 1/2 Minuten erstellen können. 
Das Programmpaket ist so gestaltet, 
daß es sowohl mit Diskettenlaufwerk 



als auch mit Cassettenrecorder gefah- 
ren werden kann. Jedoch ist die Ver- 
arbeitung mittels Cassette wesentlich 
langsamer als mit Diskette. 
Das Paket wurde extra in mehrere 
Programme unterteilt, damit keine 
Speichererweiterung erforderlich ist. 
Das Programmpaket kann deshalb 
auch mit der Grundkonfiguration 
(Konsole, Fernseher und Recorder) 
gefahren werden. 

Selbst ohne externen Speicher ist das 
Programm "ASCIIDEF durch seine 
vielseitigen Grafikmöglichkeiten 

noch interessant. 

Als Drucker wurde ein Seikosha GP 
700 A verwendet. Es kann jedoch auch 
jeder andere Drucker mit 8 DOT Ma- 
trix verwendet werden. Dazu sind 
evtl. nur die Druckeroptionen zu än- 
dern, die aus diesem Grunde als 
Stringvariable am Anfang der Pro- 
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gramme ASCIIPRINT und COPY- 
PRINT stehen. 

Auf eine Farbsteuerung des Druckers 
wurde bewußt verzichtet, da dies evtl. 
Schwierigkeiten bei der Umsetzung 
auf andere Drucker geben könnte. 
Das Programmpaket besteht aus fol- 
genden Programmen: 
ASCIIDEF (Definition von Charakte- 
ren) 

ASCIIPAT (Unterprogramm zur au- 
tom. Definition) 

ASCIISET (Umbelegung des Grafik- 
satzes mit Datei) 

ASCIIUMW (Umwandeln für die 
Druckerausgabe) 

ASCIIPRINT (Ausdruck des graphi- 
schen ASCII Satzes) 
COPY (Unterprogramm zur Speiche- 
rung d. Hardcopy) 

COPYPRINT (Umwandeln u. Aus- 
druck der Hardcopy) 

Programm ASCIIDEF 

Das Programm ASCIIDEF erlaubt es 
dem Programmierer, einen eigenen 
Zeichen satz im Bildschirmdialog zu 
erstellen sowie einen bereits erstell- 
ten Zeichensatz zu verändern. 
Die definierten Zeichen können ge- 
spiegelt werden sowie nach rechts 
oder links gedreht werden. Es können 
Zeichen in einer 8x8-Matrix (1 Cha- 
rakter) als auch in einer 16xl6-Matrix 
(4 Charaktere für Sprites im MAGI- 
FY(3)-Modus) definiert und editiert 
werden. Auch kann man einzelne Tei- 
le einer 16xl6-Matrix verändern. 
Die so erstellte Datei kann dann mit- 
tels des Unterprogramms ASCIISET 
zur Umbelegung des Zeichensatzes 
verwendet werden. 
Laden Sie das Programm ein und star- 
ten Sie es mit RUN. Das Programm 
führt Sie in Dialog weiter. Zuerst er- 
scheint auf dem Bildschirm das Wort 
INITIALISIEREN . . . , dabei wird die 
Datei mit dem Standardzeichen satz 
des TI 99/4 A belegt. Danach erscheint 
GRAPHIK BELEGEN . . . , dabei wird 
die im Programm benötigte Grafik ge- 
neriert. Jetzt erscheint die Frage 
NEUES CODEFELD ERSTELLEN? 
Wird die Frage mit ,N' beantwortet, so 
kann jetzt ein bereits vorhandenes 
Codefeld von Diskette oder Cassette 
geladen werden. Dazu wird nach Auf- 
forderung der Dateiname (z. B.: 
DSK1, FELD oder CS1) eingegeben. 



Ist die Antwort jedoch ,J\ so wird als 
Codefeld der Standard-Zeichensatz 
des TI vorausgesetzt. Jetzt wird ge- 
fragt ,16xl6-PUNKTMATRIX\ Ant- 
worten Sie mit ,J\ so erscheint diese 
Matrix auf dem Bildschirm. Wenn Sie 
mit ,N' antworten, so wird eine 8x8- 
Matrix ausgegeben. 




Als nächstes werden Sie gefragt, ob 
Sie einen Charakter ändern wollen. 
Wenn die Antwort ,J' lautet, so müs- 
sen Sie die Nummer des zu ändernden 
Zeichens angeben. Bei einer 16x16- 
Matrix kann diese Nummer nur dem 
ersten oder fünften Zeichen eines der 
14 Charakters ätze des Rechners ent- 
sprechen, da sonst bei einem späteren 
Sprit eauf ruf in anderen Programmen 
das Bild verdreht wiedergegeben 
würde. Dies wird jedoch vom Pro- 
gramm kontrolliert und gegebenen- 
falls mit einer Fehlermeldung quit- 
tiert, die dazu führt, daß man sich 
nochmals dazu entscheidet, ob der 
Charakter geändert werden soll oder 
nicht. Der Charakter wird jetzt auf der 
großen Matrix generiert und das Pro- 
gramm springt in den EDIT-Modus. 
Wenn keine Änderung eines Charak- 
ters erwünscht ist, so springt das Pro- 
gramm bei einer weißen Matrix in den 
EDIT-Modus. 

Im Edit-Modus kann der Charakter 
definiert werden: 

Taste ,1' färbt das Kästchen schwarz. 
Taste ,0' färbt das Kästchen weiß. 
Taste ,D' bewegt den Cursor nach 
rechts. 

Taste ,S' bewegt den Cursor nach 
links. 

Taste ,E' bewegt den Cursor nach 
oben. 

Taste ,X' bewegt den Cursor nach un- 
ten. 



Um den Editiermodus zu beenden, 

drücken Sie die Tasten ,FCTN' und 

,BACK" gleichzeitig und Sie erhalten 

das Menue: 

,l l ■- ZEICHEN GENERIEREN 

,2 L - ZEICHEN SPIEGELN ■ 

.3' - ZEICHENDREHUNG RECHTS 

.4' - ZEICHENDREHUNG LINKS 

ZEICHEN UND SPRITEDEFINI- 
TION 

Bei Auswahl .2 l wird das generierte 
Zeichen gespiegelt. 

ZEICHEN UND SPRITEDEFINI- 
TION 

Die Auswahl ,3' hat zur Folge, daß das 
Zeichen im Uhrzeigersinn um 90 Grad 
gedreht wird. 

ZEICHEN UND SPRITEDEFINI- 
TION 

Auswahl .4' dreht das Zeichen um 90 
Grad gegen den Uhrzeigersinn. 

ZEICHEN UND SPRITEDEFINI- 
TION 

Bei Auswahl ,1' wird der Hexadezi- 
male Code des definierten Zeichens 
erzeugt und ausgegeben. Um fortzu- 
fahren, müssen Sie die Tasten ,FCTN' 
und PROC/D gleichzeitig drücken. 
Es erscheint nun die Frage: CHA- 
RAKTER ABSPEICHERN. Bei Ant- 
wort. ,J' werden Sie aufgefordert, die 
Kennzahl des Zeichens einzugeben, 
unter welcher dieses gespeichert 
werden soll. 




Nach "sämtlichen 4 ÄuswahlmÖglich- 
keiten werden Sie jetzt gefragt: WEI- 
TERE OPERATIONEN. Diese Frage 
bezieht sich auf das z. Z. auf dem Bild- 
schirm sichtbare Zeichen. 
Wenn Sie die Frage mit .J' beantwor- 
ten, kommen Sie wieder in den EDIT- 
Modus. 
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Wird die Frage mit ,N' beantwortet, so 
werden Sie nach weiteren Definitio- 
nen gefragt.. Antworten Sie mit ,J\ um 
zu der Frage 16x16 PUNKTMATRIX 
zu kommen. Wenn Sie jedoch mit ,N l 
antworten, so haben Sie jetzt die Aus- 
wahl, die soeben definierte Datei zu 
speichern. Auch ohne Speicherung 
und Weiterverarbeitung der Datei ist 
das Programm ASCIIDEF ein sehr 
hilfreiches Werkzeug, welches die 
mühsame Arbeit der Charakterdefini- 
tion in Hexadezimalcode abnimmt. 



Wenn Sie bereits ein Programm ha- 
ben, worin Charaktere belegt sind, so 
können Sie sich das Codefeld dieses 
Programms mittels des Unterpro- 
gramms ASCIIPAT abspeichern und 
evtl. auch editieren, ausdrucken oder 
Hardcopys dieses Programms ziehen. 
Tippen Sie das Unterprogramm AS- 
CIIPAT zusätzlich in Ihr Programm 
ein oder laden dieses mitMERGE (nur 
mit Diskettenlaufwerk) auf. 
Um das Codefel'd zu erhalten, rufen 
Sie das Unterprogramm nach der 



16 REM 
12 REM 
14 REM 
16 REM 
lfl REM 
20 REM 
22. REM 
24 REM 
26 REM 
28 REM 
30 REM 
32 REM 
34 REM 
36 REM 
38 REM 
100 DIS 



******************************* 



RSCI IDEF 
DEFINITION VON CHARAKTEREN 

TT 9 9/4 Ff 
+ TI Exteneted BASIC 
+ externer Speicher 

("DIS C L au fuer- k o . R eco r der 

(c) 1984 by Volker Becke-r 
Stei'nba.cher Strasse 16 
6370 Ober ur sei 6 



letzten CHAR-Belegung mit CALL 
ASCIIPAT(„NAME") auf, wobei „NA- 
ME" für die entsprechende Datei (z. B. 
DSK1.FELD" oder „CS1") steht. 
Die so erstellte Datei hat genau die 
gleiche Form wie das Codefeld, wel- 
ches mittels „ASCIIDEF" erstellt 
wurde und ist somit vollends kompar- 
tibel zu dieser Datei. 
Um in einem Programm den Z eichen - 
satz mittels eines zuvor erstellten Co- 
defeldes umzubelegen, wird das Un- 
terprogramm ASCIISET verwendet. 
Das Programm wird zusätzlich zum 
normalen Programm eingetippt oder 
mitMERGE (z. B. MERGEDSK1. AS- 
CIISET) aufgeladen. 



******************************* 



PLAY AK 1 , 1 )ERR3E ALL '"ZEICHEN UND SPRITEDEFINITIGN- 




110 DISPLAY RK 4, 1>= "INITIALISIEREN.. ..." 

120 CALL CHARSET 

13CI DIM ASCII« 112), FELDC 8), FELD« 16) 

140 FOR 1*32 TO 127 ■■ '■ CALL CHARFAK I , HEX* ) 

150 FUR 1-128 TO 143 " ASCII« I-32)*RPT« "0", 

135 FÖR 1*1 TO 8 •■ '■ F£LD<I)*0 ■■ NEXT I 

160 DISPLAY RK 4, 20) '"BEENDET" 

f. 70 DISPLAY AT< 5,1)'" GRAFIK BELEGEN " 

180 CALL CHAR<100,RPT$< ,r 0",16X. 101 ,RPT« "F" , 16 

ÖL0R<9,2,16> 

190 DISPLAY AK 5, 28) '"BEENDET" 

200 DISPLAY AK S>1)' "NEUES CDDEFELD ERSTELLEN 

VRLIDATEC"JN")BEEP'SKP* ■■ ■■ IF SKP**"J" THEN 2.5 



ASCII« I~32>*HEX* 
16): > NEXT I 



NEXT I 



102, ), FF8181Ö18iei81FF")= = CALL C 



210 
220 
230 
240 
245 
250 
ALL 
260 
270 
280 
290 
320 
330 
340 
350 
360 



DISPLAY RK 10,1): "FELDNAME ? < GERRET. NAME)" 

OPEN #1 'DATEI*, INPUT , 8EQIJEMTIAL, INTERNAL, FI XED 80 

FOR 1*32 TO 143 ■> •■ INPUT #1 ' GRAPH*, .ASCII« 1-32)' = NEXT 

CLOSE #1 

DISPLAY AK 1,1)' "ZEICHEN UND SPRITEDEFINITION 



VN)" ■'■ ACCEPT RK9,7)SIZE<1) 
ACCEPT AK 11,1 )BEEP ' DATEI* 
I 



CALL CHRRC 96 , RPT« " ' 



.. 64 ) ) : 
? <J.--N 



CALL DELSPRITE<#1) 

SCREEN< 4 ) 

DISPLAY AK24,DBEEP="16 X 16 PUNKTMATRIX 

ACCEPT AK 24, 28 )VRLIDHTE< " JN" ) ' SKP* 

IF SKP$*"J" THEN CALL M16 ELSE CALL MB 

IF SKP*="J ,J THEN MTX*1 ELSE MTX=0 

DISPLAY AK24,1)= "CHARAKTER HENDERN ? (J/H)" 

ACCEPT RK 2.4, 23 )S1ZE< 1 )VAL IDATEX " JN" )BEEP ■ SKP* 

IF 5KP**"J n THEN 20000 

IF MTX*1 THEN CALL ED ITC 20,20 )ELSE CALL EC'IK 12, 12) 

CRLL DELSPRITE<#n 



CALL HCHARC 3 , 1 , 32 , 704 ) ■■ •■ C 
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370 DISPLAY RTC 21, 1 )>"M' - ZEICHEN GENERIEREN f 2> - ZEICHEN SPIEGELN '3 

■' - ZEICHENDREHUNG RECHTS '4' - ZEICHENDREHUNG LINKS" 

380 RCCEPT RTC 19, 26 WRLIDATEC " 1234" )SIZE< 1 >BEEP = SKIP 

390 OH SKIP GOSUB 2000,3080,4800,4800 

400 CRLL HCHRRC 21,1, 32 ,129)- CRLL HCHRR< 1 9 , 28 , 32 ')■■■■ DI SPLRY RTC 24 , 1 > * " WE I TERE 

PFRRT IONEN ? C,J/N>" ■• RCCEPT RT(24,28)SIZF':' 1 >VRLIDRTEC "JN" )BEEP'SKP* 

418 IF 8KP*="J" THEN 350 

420 D I SPLRY RTC 24 , 1 > • " WE I TERE DEF I N I T I OMEN C J--'H > " : = RCCEPT RT< 24 , 28 >8 1 ZEC 1 )VRL I 

ORTE<I ,, JN">BEEP'SKP* == IF SKP*»"J" THEN 250 

430 CRLL. DELSPRITECttl '>■ ■ CRLL HCHRRC 3, 1 ,32, 704 U == DI SPLRY RTC 4, 1 >= "CODEFELD R6SP 

EICHERN? C ,VN )" ' = RCCEPT RT< 4, 28 )VRLIDflTEC " JN" >SIZEC 1 >BEEP - SKP* 

440 IF SKP**"N" THEN 1800 

450 DI SPLRY flT(6,l)'" FELDNAME ? C GERRET . NRME )" 

460 RCCEPT RK7,1)BEEP = DRTEI* 

470 OPEN # 1 '■ DRTE I * , OUTPUT , SEQUENT I RL , I NTERNRL , F I XED 80 

480 FÖR 1=32 TO 143 •• ■ PRINT #1 = "" , HSCI I$C 1-32 >= = NEXT I 

Am CLÖSE #1 

1800 CRLL CLERR = = STOP ' • END 

2000 ! GENERIEREN DER ZEICHEN 

20 1 UHEX«* " 8 1 23456789R6CDEF " 

2820 hex*«"" 

2K25 CRLL HCHRRC 21 , 1 , 32, 1.28 V = CRLL HCHRR< 19,28, 32) 

2030 IF MTXs0 THEN GOTO 2108 

2046 BS«5 ■■ ■■ BZE«28 = : GOSUB 5800 

2058 BS« 13 -■ : GOSUB 5088 

2860 CRLL CHRR< 96 , HEX* > = ■■ CRLL MRGN I FYC 4 ) ■■ ■■ CRLL SPR I TEC # 1 , 96 , 2 , 4 1 , 1 85 ) 

2062 FOR 1*8 TO 3 '= CRLL CHRRPRTC 96+1 , HEX* 5 = : DISPLAY RTC 21 + 1 , 3 >' HEX* ■ ■ NEXT I 

2870 GOTO 22Ö0 

2188 BS=5 ■ ■■ BZE=12 

2110 GOSUB 5080 

21. 20 CRLL CHHR< 96 , HEXS > ■ ■ CRLL MRGN I FYC 2 > ■ • CRL L SPR I TEC # 1 . 96 . 2 . 33 , 1 2 1 ':• 

2130 DI SPLRY RTC 2 1,3::. = HEX* 

2280 DISPLAY RTC 21, 22 )= "WEITER" == DISPLAY RTC 22 , 22 > : " MIT" * •■ DISPLAY RTC23. 22'j 

= M PROC-'D" 

2282 CRLL KEYC5,T,S): = IF TOI 2 THEN 2282 

2288 CRLL HCHRRC 21,1 , 32 ,128)== CRLL HCHRRC 1 9 , 26 , 32 > ■ ■> DI SPLRY RTC 24 , 1 ) = " CHRPRKTE 

R ABSPEICHERN (J/H)" == RCCEPT RTC 24, 28 WRLIDflTEC "JN" >SIZEC 1 )BEEP' SKP* 

2210 IF SKP$='\r THEN 2220 ELSE. RETURN 

2228 DI SPLRY RTC 24, 1 >'• "UNTER WELCHEM ZEICHEN ?" •■ ■■ RCCEPT RTC 24, 25 US I ZEC 3 WAL IDA 

TECDIGIT)BEEP=CHRRNR 

2238 IF CHARNR<32 OR CHRRNR>143 THEN 2228 

2240 IF MTX-l THEN BRCK>1 : ' GOSUB 24808 

22.45 IF MTX«2 THEN MTX=1 ■ ■ GOTO 2208 

2258' IF MTX=1 THEN 2278 

2260 CRLL CHRRPRTC 96, RSCI I*CCHRRNR-32 ■»■-'■ RETURN 

2270 FÖR 1=0 TO 3 

2280 CRLL CHRRPRTC 96+1, RSCII*C CHRRNR-32+IV, 

2£90 NEXT I 

2380 RETURN 

3080 ! ZEICHEN SPIEGELN 

3010 PS»5 

3020 IF MTX*1 THEN PE=20 ■ ■ L=15 ELSE PE«12 •■ L=? 

3830 FOR 1=5 TO L+5 

3046 CRLL GCHRRCI,PS,Z1^ •■ CRLL GCHRRC I , PE , Z2 ) ■ • CRLL HCHfiRC I ,PS, Z2>^ CRLL HCHR 

R<I,PE,Z1> 

3850 NEXT I 

3060 PSaPS+1 • ■■ PE=PE-1 

3870 IF PE<PS THEN RETURN 

3080 GOTO 3038 

4088 ! DREHEN DES ZEICHENS 

4810 FOR 1*1 TO 16 = = FELD*<I>="" - ■- NEXT I 

4020 IF MTX»! THEN PS=5 ■■ - PE*20 ELSE PS»5 •■ •■ PE==12 

dam IF SKIP-4.THEN 4288 
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4040 


FOR I=PS Tu PE 


4050 


FOR K=PE TU PS STEP -1 


4060 


Cfll L GCHRRCK.. I.-Zn 


4070 


FELDSC I-PS+1 >*FELD*C I-PS+1 teCHRSCZi > 


4030 


HEXT K 


4090 


HEXT- T 


4im 


GOTO 4500 


4290 


.1=0 


4235 


FOR I=PE TD PS STEP -i 


4207 


J=J+1 


4210 


FÜR K=PS TO PE 


4220 


CRLL GCHRRCK,I,Zn 


4230 


FELD« J >*FELD*< J >&CHR« ZI) 


4240 


HEXT K 


4250 


HEXT I 


4*500 


FÜR I=PS TG PF 


4510 


FOR K=l TO PE-PS+1 


4520 


CRLL HCHARC I , K+4, RSCC SEGSC FELD« I--PS+1 :> . K ■ 1. ' 


4538 


HEXT K 


4540 


HEXT 1 


4550 


RETURN 


5000 


! B IHRER - HEXADEZIMAL - WANDLER 


5Ö10 


FÜR K=5 TD BZE 


5020 


FOR I«BS TO RS+7 


5030 


CRLL GCHRPC !< , I , F > • = FELD-:: I -BS+ 1. 1=F~ 1 RR 


5040 


HEXT I 


5050 


LOW-FEUX 5 )*8+FELD< 6 )#4+FELIX 7 :j*2+FELDC 8 Hl 


5060 


HIGH=FELD< 1 >*S+FELD< 2 >#4+PELK 3 >#2+FELD< 4 Hl 


5070 


HEXS«HEXS&SEGSC UHEXS , HIGH, 1 ^SEGSC UHEXS ■ 1. OW . 


506Ö 


HEXT K 




5090 RETURN 

20000 DISPLAY RTC 23,1. ':>■■" " ^ DISPLAY hT< ;?4 

T< 24 , 2 1 >S I ZE< 3 5VAL I DATEC D I G I T )BEEP ■ CHRRNR 

BflCK«0 

IF CHARNR<32 OR CHRRNR > 143 THEN 21000 



WELCHEN CHARAKTER 



RCCEPT A 



20005 

20010 

29020 
20030 
20032 
20040 
20050 
20060 

2 1 000 
21 010 

22000 
22010 

2202R 

22030 

22035 
22040 
22050 
22060 
22070 
22080 
22090 
24000 
24010 

24020 
24030 
24040 
25000 
25010 
2502:0 
25030 



FOR Ist TO 16 :: FELD«n= ,MI - HEXT I 

IF MTX«! THEN 22080 

RSCI*sRSCII« CHRRHR-32 ) 

CALL RSC II < FELD« >..RSCIS> 

CALL CHRRPRTC 5 .. 5 , FELD« > > 

CRLL CHRRC 96 , RSC 1 1 SC CH ARNR-32 > > ■ ■ GOTO 

D I SPLRY AK 23 ,1V" N I CHT MOEGL ICH ! ! ! " = 

IF BACK«! THEN MTK=2 ' = RETURN ELSE 320 

DRTR 5,5,13,5,5,13,13,1.3 

RESTORE 22000 

GOSUB 24000 

FOR I«0 TO 3 

FOR -J=l TO 16 ■■■■ FELDSCJ ::■="" :: HEXT .1 

ASCI ««ASCI I*< CHARNR-32+I > 

CRLL RSC 1 1 < FELDS« > , RSC I S ') 

P 1 . P2 : : CALL.. CHRRPRTC P 1 , P2 , FELD« 
CHRR< 96+ 1 , HSCI ISC CHARHR-32+I > ':■ 
I 



350 
= CALL. 



SOUNDC250, 110,0> 



RERD 
CRLL 
HEXT 
GOTO 350 
' KONTROLLE 
FOR 1*32 TO 
IF CHARNR=I 
HEXT I 
GOTO 21000 
SUB MS ! S 
FOR 1=5 TO 
FOR 1=1 TO 
CRLL HCHRRC 



DER MRGNIFYC3) 
140 STEP 4 
THEN RETURN 



POSITIONEN 



^W 




X S MRTRIX ENTSPR.. 1 CHARAKTER 

12 '■ CALL HCHARU, 5,100.S>^ NEXT I 

3 : ' CALL HCHRRC 4, 4+1 , 1+48 > • ■■ CALL VCHARC 4+1,4, 

3,16,96> : = FOR 3>5 TO 6 ■■ ■■ CRLL HCHRRC 1 , 16, 100, 



1+43 



- ■■ ■■ NEXT I 
NEXT I 
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SUBEHD 
SUB Ml 6 



FOR 
CALL 
FDP 
FÜR 

CALL 

FOR 



! 16 I 

1*1 TU 1.6 
HCHAR<3,! 

1=1 TD 9 

1=0 TD 6 
VCHHR<5..: 

1=1 TD 9 



48,9) 
CALL 
CALL 

. 96 j : 



25041? 

25050 

25060 

25070 

25086 

25890 

25180 

25110 

25120 FOR 1=0 TD 6 ' 

25130 CALL HCHAR<3,2 

AR< 4 ■ 26 ■ 99 > 

25140 FOR isg TO 9 •■ 
SUBEHD 

SUB CHARPRTCZ, 
FÜR I=Z TO Z+7 
FOR K«S TO S+7 
CALL HCHAR< I , K 
HEXT K 
HEXT I 
SUBEHD 

SUB EDIT(XMHX,YMAX> 
CALL DELSPRITE<#i> = 



16 MATRIX EHTSPR 

; CHI. 

48.-9:: 

CALL 

CALL 



- 4 CHARAKTEREN 
HCHARC 4+ 1 .. 5 .. 1. O0 .. 1 6 ) : ■ HEXT 
■ CALL HCHARC3, 14; 49, 7 > 
HCHRRC 4 , 4+ I . I +48 > : : HEXT I 
HCHARC 4.14+1,1 +48 ) ■ ■■ HEXT V 



■■ CALL. VCHARt 14,3,49 
VCHARC 1+4,4, 1+48 ">■■ 
VCHARa + 14,4, 1+48) 
CALL HC H AR*:. 4,25,9 



25150 
26000 

26010 
36020 
26030 
26040 
26050 

?.mm 

27002 

27005 
2701.0 
27020 
27040 
27050 
£7060 
27070 
27680 
27O90 



CALL. HCHAR< I 
FELDS* ) ) 



!4, 100,4 



HEXT I 

HEXT I 
:- ■■ ■■ CALL 

HEXT I 



HCHARC3,26,98>== CALL. HCH 



ALZ SEGSC FELD«':: I--Z+1 ) . K--3+1. , 1 > >+100 



DEFI. HIEREH UND 
CALL MAGHIF'yV 1 



>' 



■ .< 



100 

27110 
27120 
27130 
271.40 
27150 
27200 
27210 
27226 
27230 
27240 
31999 
32050 
32060 
32070 
32080 
32090 
32100 
32110 
32120 
32130 
32140 
32150 
32160 
32170 

32130 
3219G 

32200 
3221.0 
32220 
32230 



DISPLAY 

-nr 



ATX 23, 1 ) = "DRUECKEH SIE FCTH 



EDITIEREN DES CHARAKTERS 
' ■■ ■■ CALL SPR I TE< #1,1 02 , 7 , 33 , 33 > 
•'BACK/' UM DIE DEFINITION ZU BEENDEN" 



r-s 



CAL 

IF 
IF 
IF 
IF 
TF 
IF 
IF 
IF 
TF 
IF 



KEY< 5 

48 OR 



T 

T=83 

T=83 

T=68 

T=69 

T=15 

X>XMAX 

Y>YMAX 



T,S) 

T*49 



= IF 

THEH 



8=0 THEH 

2720O 



27020 



THEH 

THEN 

THEH 

THEH 

THEN 
THEH 
THEN 



Y=Y+i 

X-X+l 
Y*Y-1 

5UBEXIT 
X-XMAX 
Y«YMAX 



O'-l >*8+1.,r'X-i v|:8+l 



X<5 THEH X« 

Y<5 THEH Y= 
CALL LOCATE(#l 
GOTO 27020 

CALL HCHAR<Y,X,T+52> 
X=X+1 ■• •■ IF X>XMAX THEH 
IF Y>YMRX THEH Y=5 
GOTO 27140 
SUBEHD 

SUB mci.KFB.m( 

M=l 

0-*="" 

HS«SEG*<HEX*,1,2 

E*fl 

FOR L=LEHCH*>Tn 

R**SEG*<H*..L,1> 

FOR .1=0 TD 5 

IF ASCX B* >65+J 

HEXT ,1 

A«VAL<B*> 

D"D+A*1 6---E 

E=E+1 

HEXT L 

TF D»0 THEH FE!..D*ai>-" 000000 00 

D"D.-'2 

IF D=IHTCD::'THEN C*="0"& 

CS="1."kC* : ■ i>=INT<D) 

IF INT(DX>0 THEH 32 190 

FELD*':' M >=C* : : C*~"" 



Y=V+i 




HEX* « 



1 STEP -1 



THEH A* 10+, 



GOTO 321.50 



CS 



GOTC 



GOTO 32240 



>pt 




<Z2s*<5* 
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32240 M-M+l 

3325Ö HEX*=SEGS< HEX* , 3 , L EN< HEX$ )-2 ':■ 

32260 IE HEXiO"" THEN 32070 

32270 D=0 

32230 FÜR R*l TO 8 

32250 T F LEW FELD*< R > >< 9 THEH FE!... D*< R ">- " fi " Wl r:-$-: - R ^ * 

32300 NEXT R 

32420 SUBEND 



GOTO 32290 



r^T~7\ 



ASC II -SET Unterprogramm 



32 4 90 
32418 
32420 
32430 
3244B 
32450 
32468 
3247© 
32486 
32482 
324 85 
32487 
32483 
32490 
32588 
32518 
32528 
32539 
32548 
32558 



SÜB ASCI I SET (DATEI*) 

Unterprogr a mm z u r U mb eleg u ng des G r a p h iksatzes 

fuer II 99/4 A 

<c) 1984 by Volker Becker 



CALL C 
FOR 1 = 
PRINT 

NEXT I 
OPEN « 
FOR 1 = 
IN PUT 
CALL C 
NEXT I 
CLOSE 
SUBEND 



LEAR 

32 TO 143 

CHR*< I) ; " " ; 

88 : DATEI *, INPU7 , SEG.UENTIAL , INTERN AL , F IXED 80 

32 TO 143 

«88 : GRAPH*, ASCI I* 

HARCI ,ASCn*> 



#3& 



ASC II - PAT Unterprogramm 



32000 SUB ASCIIPAKDATEI*) 

32805. ! 

32818 ! copieren eines Codefeldes aus einem bestehenden Programm 

32815 ? 

32820 ! (c) 19S4 by Volker Becker- 

32025 i 

32838 ! fuer TI 99/4 A 

32835 ! 

32048 ! 

32845 PE N *8 8 = D A TE I * , U T P U T ,■© E QU E N T I AL , IN T EPN AL , F I XE I> 98 

32858 FOR 1=32 TO 143 

32855 CALL CHARPAT < I t HEX*) 

32869 PRINT #88 : " " .. HEX* 
32865 NEXT I 

32870 CLOSE «88 
32875 SUBEND 




Achtung: Bei dem Programm ASCII- 
DEF kann es bei einer falschen Einga- 
be oder bei einer vollen Diskette am 
Programmende zu einer Fehlermel- 
dung kommen (I/O ERROR). Wenn 
dies geschieht, so kann man die im 
Rechner befindliche Datei retten, da 
sonst die ganze Definition umsonst 



gewesen wäre. 

Dazu gibt man als Befehl, nachdem die 

Fehlermeldung gekommen ist, die 

nachfolgende Zeile ein: 

OPEN 7: „Gerät. Name", OUTPUT, 

SEQUENTIAL, INTERNAL, FIXED 

80 : : FOR 1=32 TO 143 : : PRINT 7: 

„,,ASCII$ (1-32) : : NEXT I 



Danach ENTER drücken. Der Rech- 
ner rettet jetzt die Datei auf den ent- 
sprechenden externen Speicher. 
(Siehe Programm ASCIIDEF Zeilen 
470 und 480). 

Dies geht jedoch nur, wenn noch kein 
anderer Befehl nach der Fehlermel- 
dung gegeben wurde. 
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Looks Like an IBM 
Works Like an Apple 



To alandwhere fruit ^_ _ ,,, 

supreme, comes the awesome power of the 
Wildcat to challenge their supremacy. 

Wildcat is a sleek styled mobile Computer 
designed for your vehicle, boat ör aircraft. It 
looks like an IBM PC™ and is fully Software 
corripatible with the Apple II™ product line at ä 
I ist price that would put a smile on the face of the 
most frugal Computer buyer. 

But price i'sn'f everything. All those features that 
would cost you hündreds : ": ' JHIH||^^ 
from our ^| ■ 

competitofs, come ^^^^^^^^^Eä 

Standard with Wildcat. J 

Let's compare some I 

öf.these features: I I 





Apple He 


Wildcat 








Detachable keyboard 


No 


STD ' 


Füll numeric key päd 


. Option 


STD 


Füll functions keys 


. Nö 


41 


Built in disk Controller 


No 


STD 


Parallel printer port 


No 


STD 


RS 232 serial port 


No 


STD 


Game port 


1 


2 


RGB Video out 


Option 


STD 


Composite Video 


STD 


STD 


RF video för TV 


Option 


STD 


CP/M . 


Option 


STD 


Hi Res graphics(6 cölör) 


STD 


STD.. : 


Low Res graphics (16 colör) 


STD 


STD 


64KB merriory 


STD 


STD 


Half high disk drives. 


No 


std : 


Converters for vehicles, ,. 






boats, and aircraft 


No 


Option 


Aluminum carry ingcase 


No 


Option ■'. 


List price 


$1940* 


$1099.00* 



'Computer plus orte disk drive 

Warning: This equipmerit is exempt from compliance with FCC. lesting 
requirements pursuant to 47 CFB 15.801 (c) (1) 
Operation of this eqjipmen! in a residential area may cause interference. 



For more information on the all -riew Wildcat, see 
your local Computer deaier or call ör write: 

COMPUTER ÄND 

PERIPHERAL PRODUCTS 



an 



1530 S. Sinclair 

Anaheim, CA 92806 
(714) 978-9820 



IBM is the regislered traderhärk of International Business Mäch in es Corp'. 
Apple is the registered trädemark of Apple Computer. Inc. 
Apple ll is.the trädemark of Apple Computer, Inc.. 
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Mathematik - 
programni 
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auf Wunsch auf dem Drucker ausge- 
geben werden. Die Funktion ist verti- 
kal beliebig vergrößerbar. Aus- 
schnitts Vergrößerungen von interes- 
santen Stellen können daher beson- 
ders untersucht' werden. 
Alle Unterprogramme werden über 
Menuekarte angesteuert. Das Pro- 
gramm hat noch einen Instruktion en- 
teil, der evtl. Probleme weitgehendst 
beseitigt. 

Da das Programm modular aufgebaut 
ist, können auch einzelne Unterpro- 
gramme allein benutzt werden, so daß 
ein Abtippen des gesamten Pro- 
gramms nicht unbedingt notwendig 
ist. 

Beim Integrieren brauchen keine 
Nullstellen vorher berechnet zu wer- 
den, da das Programm negative Vor- 
zeichen automatisch berücksichtigt. 



Mathematikprogramm 
Dieses Programm für den ZX-Spec- 
trum paßt mit einer Länge von ca. 7,43 
Kb noch in die 16-Kb-Version. Und 
weist dennoch folgende Besonderhei- 
ten auf: 

Alle Rechenarten sind aus der höhe- 
ren Mathematik und daher für Schü- 
ler der 12. bis 13. Klasse sowie für 
Studenten der Naturwissenschaften 
interessant. 
Es weist folgende 5 Themen auf: 

a) Integralrechnung 

b) Differentialrechnung 

c) Newtonsche Näherung 

d) Monotonie 

e) Plotten von Funktionen 
Für das Zeichnen der Funktionen 
brauchen keine Unstetigkeitsstellen 
eingegeben werden. D. h., jede belie- 
bige Funktion mit beliebig vielen Defi- 
nition slücken kann dargestellt und 



1 REM MATHE i VERSION 9 
Z IHK ?■■ BRICHT 1. 

3 BORDER 8 

4 PHPER 6= CLS 

5 PRINT AT 0,4;" COPYRIGHT BV UWE HAFERLAND" 

6 FÜR U=l TO 20 

7 PRINT AT U,4;CHR$ 143 
S PRINT RT LI,ly:CHR$ 143 
9 HEXT U 

16 FOR K=l TO £1 

11 PRINT RT K,20;CHR* 143 

12 PRINT RT K, 31; CHR* 143 

13 HEXT K 

14 FOR U«4 TO 18 

15 PRINT RT 21,U;CHR* 143 

16 NEXT W 

17 FOR H=2@ TO 31 

18 PRINT AT ll,H.iCHR* 143 

19 NEXT H 

20 PRINT #0, FL..RSH 1 ; RT 0, 1 ; "MATHE 1 VERSION 9; 83/34" = 
23658,8 

21 CLS • PRINT "DIESES PROGRAMM BEINHALTET FOL- GENDE RECHEHRRTEH 

DIFFERENTIALRECHNUNG D 

INTEGRALRECHNUNG I 

GRAPHISCHE DARSTELLUNG VON FUNKTIONEN F 

MONOTONIE D 

NULLSTELLENBERECHNUNG MIT NEUTONSCHER NAEHERUNG N 

ALLGEME I NE 1 NSTRUKT I ONEN M " 




PAUSE 200 : CLS : PÜKE 



22 PRINT AT 19,0; "DRUECKEN SIE NUN EINES DER 
M- RRND ZUR WAHL IHRER RECHEHRRT" 

24 IF INKEY$~"J." THEN GO TO 400 

25 IF INKEY$="F" THEN GO TO 390 

26 IF INKEY$="D" THEN GO TO £00 
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27 IF INKEY*="N" THEN GO TG 399 

28 IF INKEYS* "M" THEN GO TO 600 

29 IF INKEY*="M" THEN GO TO 600 

30 UO TO 24 

2O0 REM D I FFERE NT I fl LRECHNUNG 

202 CLS : PRINT RT 1 ,0; "DIFFEREHTIRLRECHNUHG/MONOTONIE" 

204 PRIHT RT 4,0; "BEI ERSCHEINEN DER FEHLERMELDUNG HR. 6 NUNEER TOD BIG IST DIE 
FUNKTION NICHT STETIG UND DRHER IN DIESER FORM NICHT DIFFERENZIERE 

HP ' " 

206 INPUT "GEBEN SIE NUN DIE FUNKTION EIN MIT X RLS ARGUMENT, ABER OHNE DIERBHR 
ENG IGE VARIABLE Y= " ; RS 

210 INPUT "GEBEN SIE X0 EIN",X 

212 LET fl*.iE-4 

214 LET B=l 

216 DIM Y<3> 

218 GO SUB 244 

220 LET X-X+R 

222 GO SUB 242 

224 LET X=X-2*fi 

226 GO SUB 242 

228 LET C-< Y< 2 >-Y< 3 > V< 2*fl) 
230 r:L :=; 

232 PRIHT "DIE STEIGUNG BETRREGT RH DIESER STELLE ■■ "; C 

233 IF ABS C>1E6 THEN PRINT RT ®,Ü;"m DIESER STELLE LIEGT WAHRSCHEIN 
LICH EINE UNENDLICH- KEITSSTELLE VOR, DIE FUNKTION ISTNICHT DIFFERENZIERBAR!" 

234 IF C>0 THEN PRINT "DIE FUNKTION IST STRENG MONOTON STEIGEND AN DER STELL 
E X=" ;X+R 

236 IF C<0 THEN PRINT "DIE FUNKTION IST STRENG MONOTON FALLEND RN DER STELLE 

X=";X+R 
240 GO TO 853 

242 LET B=B+1 

243 LET Y-:: B >=VRL A$ 

244 RETURN 

300 REM FUNKTIONEN 

302 CLS 

303 PRIHT AT 0, 12; "FUNKTIONEN" 

304 INPUT "GEBEN SIE NUN DIE FUNKTION EIN MIT X ALS ARGUMENT.. ABER OHNE DIERBHA 
ENG IGE VARIABLE Y= " ; RS 

307 LET KONTROLLEN 

308 LET D=l 

312 I NPUT " GEBEN S I E DEN DEF I N I T I ONSBERE I CH VON ...BIS. ..EIN. SOW IE DIE SCH 
RITTFOLGE VON X:",A,B..C 

313 INPUT "VERGROESZERUNG= " ; G 

314 LET FL AG- 6 

316 LET P=880/G 

317 LET U=P-INT P 

318 IF U>=.5 THEN LET P=INT P+l 
313 IF LK0.5 THEN LET P»INT P 

320 LET P=0.1*P 

321 LET I-R 

322 IF ABS R>=ABS B THEN LET E=RBS R 

323 CLS 

324 IF ABS A<ABS B THEN LET E=ABS B 
326 IF fl=0 THEN LET E=ABS B 
328 IF B«0 THEN LET E-ABS R 
332 IF R>=6 THEN LET FLflG=2 
334 FOR K*0 TO 31 

336 PRINT AT 10, K; "." 

337 HEXT K 

338 OVER 1= PRINT AT 11,0; "A"; AT 11,31 ; "B" 

339 I F R< THEN PR I NT RT , 1 6 ; " P " ; AT' 2 1 , 1 6 ; " Q ' 

340 IF R>=0 THEN PRINT AT 0,1;"P";AT 21,1;"Q" 

341 FOR L=0 TO 21 

342 IF fi>=0 THEN PRINT AT L.,0;"." 
344 IF fl<0 THEN PRINT RT L, 15;"." 
346 NEXT L 
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348 HEXT K 

355 IF KONTROLLEN TUEN LET A=VAL "X" 

356 FÜR X-A TO B STEP C 

357 LET YaVfiL A$ 

360 IF BBS <V*G^D+88)>175 OR <Y*G''D+88X8 THEN GO TO 
362 IF FLAG=2 THEN GO TO 376 
364 PL T < X-C>* 1 27--E+ 1 28 , Y*G sf> +8 8 
366 HEXT X 
368 Gü TD 380 

372 LET KONTROLLEN^ LET X=X+S. 1 
374 GO TO 355 

376 PLOT < X-C >*255-"E , Y*G-'D+88 
378 HEXT X 
380 PR I NT #6 i AT 8 .. 9 : " fl= " i I i " " i " B= " .; B i " " i " P= " ; P 

382 PR I NT #0 .: RT 1 , ; " Q- ' ' ; -P ; ' ' 0=NE U E R UF GÄBE 1 = COP IE" 

383 IF INKEY$-"i" THEN GO TO 398 

384 IF INKEY*="0" THEN GO TO 21 

385 GO TO 383 

390 LPRINT "Y=".;R$.;TflB 79;" "= COPY •■ LRR INT .;" 

H .;"H="iI.i" B=";B;" P==";FV Q 
=";-P= GO TO 21 

406 REM INTEGRRLE 

401 CLS : PRINT RT 8, 13. i " INTEGRRLE" 

403 INPUT "GEBEN SIE NUN DIE FUNKTION EIN MIT X RLS ARGUMENT. ABER OHNE DIEflBHA 
ENG IGE VARIABLE Y-" ";fi$ 

406 INPUT "UNTERE GRENZE" , D, "OBERE GRENZE" , E, "ANZAHL DER SUB INTERVALLE" , F 

407 CLS 

408 IF F>«40 THEN PRINT "BITTE WARTEN!" 

409 LET B=<E-DV2/F 
412 LET fl=0: LET X=D= GO SUB 436 
415 FOR GN TO F 

418 LET R-V+A' LET X=X+B = GO SUB 436 
421 LET R=Y*4+R: LET X=X+B = GO SUB 436 
424 LET R=V+A 
427 NEXT G 

430 LET OA*B/3 

431 CLS 

432 BEER .5,30 •• BEER 0.5,27 

433 PRINT "DIE FLRECHE BETRREGT" , C ■■ GO TO 853 
436 LET Y=VAL A$ 
439 LET y-RBS y 
442- RETURN 
606 CLS " PRINT AT 0, 3; "ALLGEMEINE INSTRUKTIONEN" 

601 PRINT AT 2,0.; "1. BEI EINGABE DER FUNKTIONEN IST X IMMER DIE VARIABLE. 

.2. BEDENKEN SIE, DASS DER RECHNERBEI TRIGONOMETRISCHEN FUNKT IONEN IMMER DIE VAR 
IABLE ALS BOGENMRSSBETRflCHTET.WUENSCHEN SIE DIE EINHEIT IN GRAD, SO TIPPEN SIE 
FUER. DIE VAR I ABLE DEN W I NKEL I N GRAD E I N , UND MULT I PL I Z I EREN D I ESE MIT PI / 
180, WOBEI DIESER FAKTOR MIT DEM ARGUMENT IN KLAMMERN STEHEN MUSSIZUM BEIS 
P. =SIN<90*PI/180)MIT 90 GRAD ALS VARIABLE IN DEM BEISPIEL. 3. BEI AUFTRE 
TEN DER FEHLER- MELDUNG NR.6,NUMBER TOO BIG, IST DIE EINGEGEBENE FUNKTION NIC 
HT STETIG, DAHER AUCH MEISTENS NICHT LÖESBAR. " 

602 PRINT RT 20,9; "DAS FUNKTIONENPROGRAMM DRRF NIE MIT EINER UNSTET IGKEITSSTELL 
E BEGINNEN! !" 

603 PR I NT m * AT 1,0; " DRUECKEN SIE Z BE I BEEMO I GUNG D I ESER SE I TE • " 

604 IF INKEY*«"Z" THEN CLS ■■ IF INKEY*="Z" THEN PRINT "4. WIRD DIE VERGROESSER 
UNG ZU GROSS GEWAEHLT,SO WIRD DIE FUNKTION NUR AUF EINEM TEIL DER X-ACHS 
E LIEGEN. WAEHLEN SIE DANN EINE KLEINERE VERGROESSERUNG,SO ERSTRECKT SICH NUN DER 

GRAPH UEBER DIE GANZE ABSZISSE. 

DRUECKEN SIE W BEI BEENDIGUNG!" 
610 IF INKEY*="W" THEN GO TO 21 
.612 GO TO 604 

800 REM NEWT0N8CHE NAEHERUNG 

801 LET SIGNAL=0 

802 CLS •■ PRINT AT 9, 0; "NULLSTELLENBESTIMMUNG MIT NEWTONSCHER NAEHERUNG 
ii 

803 INPUT "GEBEN SIE NUN DIE FUNKTION EIN MIT X ALS. ARGUMENT, ABER OHNE DIEABHA 
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ENG IGE VARIABLE Y. HANDELT ESSICH UM EINE GEBROCHEN RAT IONflLEFUNKT ION, GEBEN SIE N 
UR DEN ZREHLER EIN, UND PRUEFEN SIE SPRETER DURCH EINGABE DES NENN 
ERSjOB DIESER EINE HÜLL- STELLE BEI X=S HAT. IST DIES DER FALL, SO MUESSEH SIE 
GRENZWERT- BESTIMMUNGEN MACHEN. IM ANDEREN FALL IST DIE NULLSTELLE DES ZAEH 
LERS GLEICH DIE NULLSTELLE DER GESAMTEN FUNKTION. "; RS 

804 LET M=0' DIN Y(3>= QVER @ 

805 LET B=@: LET F=:999999999 • LET A=0. 00001 

806 INPUT "GEBEN SIE EINE GESCHAETZTE NULLSTELLE EIN. VERMUTEN SIE WEIT 
ERE,SO STARTEN SIE DIESES PROGRAMM ERNEUT, ALLERDINGS MIT EINEM ANDEREN SCHflET 
ZWERT = " , E 

807 INPUT "GEBEN SIE EIN, AB WELCHER NAEHERUNG DIE RECHNUNG GESTOPPT WERD 
EN SOLL« "jN 

808 LET K-VAL "E" 

810 LET M=M+1 

811 IF M«l 00 THEN PRINT AT 19,0.; "KEINE NULLSTELLE GEFUNDEN! " ■■ PAUSE 450 = 
GO TO 21 

812 PRINT AT 18, @.; "NAEHERUNG NR.":M 
814 LET B=l 

818 GO SUB 850 

821 LET X=X+fi 

822 LET B=2 

824 GO SUB 848 

825 LET B«3 

827 LET X«X-2#fl 

830 GO.SUB 848 

833 LET C=*< YC 2 )-Y< 3 ) )A 2*A ) 

837 LET F*VAL "E" 

838 LET E*X-Y< 1 VC : J. F ABS E >= 1 E5 THEN PR I NT " WAHRSCHE I NL I CH KE I NE NULLSTELLE 
VORHANDEN! "= PAUSE 306- IF ABS E>=1E5 THEN GO TO 21 

839 PRINT AT 19, @J "ZWISCHENERGEBNISSE " ■ E 
848 IF ABS <F-E»N THEN GO TO 808 

841 IF ABS <F-EX=N THEN GO TO 852 

842 IF (F-EX=N THEN STOP 
843>LET F=VAL H E" 

845 STOP 

859 LET VXB>=VAL A* 

851 RETURN 

852 PRINT AT 19,0; "DIE NULLSTELLE LIEGT BEI X=";E; n 

853 IF INKEY*<>"" THEN GO TO 21 
854- GO TO 853 



'=2#c X*X >+X-2 



. P 



s» 



.JÜ- y Rs=1 B=5 p " 88 Qss ~ 8 - 
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IS» 



V=< YXYXÄ >-8M<+<. X*X ) 



Q 



fl=0 B*12 P=2.9 Q«-2.9 
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ft=0 


B-1.5 


P-8.E 


Q— 8.8 
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Bongo Beecatcher 

für ZX-Spectrum 48 K 
In diesem Spiel geht es darum, daß die 
Hauptperson, Bongo Beecatcher, die 
Bienen, die aus Ihrem Korb geflohen 
sind, wieder einfangen muß. Dieses 
tut er, indem er in die Höhe springt 
und versucht, die Biene zu ergreifen. 
Jedoch Vorsicht, einige Hornissen, 
die zwischen der Biene und dem Bo- 
den fliegen, versuchen, Ihn daran zu 
hindern. Stößt Bongo mit einer von 
ihnen zusammen, so wird er von Ihr 
gestochen. Vier dieser Stiche kann 
Bongo aushalten, beim fünften muß er 
sterben. 

Die Schwierigkeit bei diesem Spiel er- 
höht sich mit der Zeit durch zwei Fak- 
toren. Zum ersten nimmt die Anzahl 
der Hornissen immer weiter zu (von 
einer einzigen am Anfang bis zu acht 
ab Stufe vier), zum zweiten fliegt die 
Biene auf immer unregelmäßigeren 
Bahnen. ' 

Das Spiel braucht in der Form, in der 
es abgedruckt ist, mit allen Variablen 
etwa 10.7 Kbyte und ist somit nur auf 
der 48K-Version lauf fähig. Durch 
weglassen aller REMs und der Spie- 
lanleitung (Zeilen 7500- 7540) kann es 
jedoch soweit gekürzt werden, daß es 
auch auf dem 16K-Spectrum läuft. 
Viel Spaß! 



Programmerklärung 
nummern 



nach Zeilen- 



Zeilen: 

1-14 
15 



20-110 



200-250 



300-360 



Inhalt: 

REMs für Vorspann 
Setzen von PAPER, BOR- 
DER und INK, löschen des 
Bildschirms, zwischen- 
durch Kurzvorspann 
UDGs, DATAs und Lese- 
schleife 

Definition der Variablen, 
die pro Spiel nur einmal 
auf Anfangs wert gesetzt 
werden 

DATAs, die die verschie- 
denen Flughöhen der Bie- 
ne in verschiedenen Stu- 
fen angeben 
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1 REM 

2 REM 

3 REM 

4 REM 

5 REM 
S REM 
7 REM 
S REM 
9 REM 

10 REM 

11 REM 
IS REM 
13 REM 
14- REM 
1 K BOPDER • T N K 7' ■ P r P F P ■ r. 

L3 FÜR f--.l TO 2 50: PRINT RT 10 
, l: .; I N K. i 7 * R M D j .; " C o o p <£ r a t e d 3 o f t 
w a f- e P r ssents; " .; : NEXT f . CLS 

Sfl REM UDG5 

3W R E ST ORE I er O R r = I" O 1 1 •=? • h* 
ERD a : POKE USR "3"+f . a : NEXT F 

4-0 ■:■ DRTR 0,0,69 , 83 : 164 , 32. , 63 , , 
ES,72, 1 12 , 17 1 , 3 7 , 167 . 12 4. . 34. 

,.S0 DATO 112, 24 3 , 240 ,112, 32 , 1 12 
.. ü4.ü,£48,, 243,243 , 2'40 ,80 ,88 , 136 . 1 
3fl .. 2©4- 

©a DRTR 14,31 . :.::0 , X4,4,14,3 1 , 3 1 
, 3 1,31,30,4,4,4,4,6 

70 DRTR 1 4 , 3 1,16 , 14 , 4. . 14 ,31. ,31 
, 3 1 , 3 1 , 15 , 1 .. 1 . 17 , ;l 7 , 5 1 

SO DRTR 112 , 2 4 3 , 120 , 112 .32 , 112 
, 24 3 ,, 24 3 .. 24 3 , 243 , 12Ö , 3 2 ■ 32 . 3£ . 32 
, 96 

90 DRTR 60 , 126 , 102 , ÖW . S4 . 138 . kl 
66 , 189 , 18 9 , 139 , 6 , 36 ', 3 6 ', 6 6 ', 66 , 19 

100 DRTR .0 .7 .61 .35 .85,35,63 .5 
6 , 63 ,40, 126 , 123 , 120 , 127 , 1QÜ 
11© D RT R 3 3 t 3 5 , 3 3 , 2 3 5 , £ S 5 , 2 3 3 . 2 

ii;' est ■**". tti* au* ' 

• v • ' iSL -!z* ?~i 
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400 
410-420 

500-560 

1000-1100 
1020-1030 
1040 
1050 

1060-1070 

1100 



2000-2020 
2200-2300 



2500-2520 



2600-2630 



2800-2900 

3000 : 

5000 
6000 

7000-7210 
7500-7550 



Einlesen dieser Werte in 
a(l-31) in jeder Stufe 
Definition von c$ in den 
verschiedenen Stufen 
Bildschirmaufbau 
Hauptschleife 
Steuerung rechts/links 
PRINTen der Biene 
Sprung zur Bewegung der 
Hornissen 

Verzweigung zum Sprung, 
falls nötig 

PRINTen der Figur, Ton- 
ausgabe, Ende der Haupt- 
schleife, löschen der Biene 
an der letzten Position, er- 
neuter Sprung zum Be- 
ginn der Hauptschleife 
PRINTen der Hornissen 
Sprung der Figur mit Kon- 
trolle, ob die Figur mit ei- 
ner Hornisse oder einer 
Biene zusammengestoßen 
ist 

Von Hornisse gestochen, 
mit Überprüfung, ob das 
Spiel zu Ende ist 
Next Level mit Überprü- 
fung, ob Spieler gewonnen 
hat 

Biene gefangen, Überprü- 
fung, ob next Level 
Spieler hat gewonnen 
Spieler hat verloren 
Abfrage „noch einmal?" 
Anfangsgraphik 
Anleitung und Sprung 
zum Spiel an fang 





IS'0 (30 TÜ 70W0 
£00 REM UfiRlHB 



£1.0 M_ET 

23Q LET 



=i = :l. Q 



EN 
LET b 



101 



LET c=3 



£4* 



£40 LET d*a"" 

ssa LET bee = 4 : i ET su = e : uet p 

u = : L ET s t, - 1 : L ET e $ = " anffcaflfcuiiüfc.jnifc ' ' 
300 REM D RT h s: r* u £ r u n t e r «• c h i e ä 

liehe Stufen 

SlO DPT 1=1 14. ., 14- , 14 , 14- , 14 , 14- , 14- , 1 
4 , 14- , 14 .. 14 .. 14 , 14 , 14 , 14 .. 14, 14 , 14 ,. 
14 , 14. , 14- . 14- . 14. , 14 , 14 • 14 , 14 , 14 . 14 
, 14 ., 14 

3S0 DATA 13 . 14 , 1.4. . 13 ,H, 14 . 13 • 1 
4. .. 14 ,13,14,1 4 , 1 3 , 14 , 14- , 13 , 14- , 14- , 
13 , 14 , 14 , 13 , 14 , 14 , 13 , 14 . 14 , 13 , 14 
, 14 , 13 

330 DflT'H 13 , 14, 13, 14 .. 13 , 14 , 13 , 1 
4 , 1.3 , 14,13,14,13, 14 , 13 , 14 , 13 , 14 . 

1 3 ..14,13,14,1 3 . 1 4 , 1 :.";;. 1 4 . 1 3 . 1 4 , 1 3 
,14,13 

34 frRTP 12 > 13 , 1 4 , 13 , 12. , 13 . 14 . 1 
3 , 12 , 13 , 14, 13, 12, 13 , 14 ..13,12.13. 

14 , 13 , 12, 13 , 14 , 13 , IS, 13 , 14 , 13 , 12 
,13,14 

3Sa DRTh 10, 11,11, IS . 13 . 14 , 14,1 
3 , 12, 11, 10 , 0-3 , 10 , 1 1,12, Irjj ,14,13, 
13,12,11, 10 , 10.09,09, 10 . 11 , 12 . l j 

,11,1.0 " 

3 6 © D RT R 06. 7 , 3 S . 3 S . 3 , 3 7 , R . © 
9., 10,11,11,12,12, 1 1,12. 13 . 14 . 13 . 
18,11,10,39 , ß9 , 03 ,09, 10 ,09 ,03 ,07 
,07,05 

4 00 DIM 3(31): R E 5T Q RC 300+10*5 
t: ,FOR fsl TO 31: READ a(f) : NEX 
T r" 

4 10 L.ET hst=£ t: IE hst>4 THEN L 
ET h S t »4 

4 2Ü LET c * = '*". TOR f *= 1 TG athst 
; LEr c * = c * + i" $ i: i to 3 s s tat i h ■=• + ~ 1 
) J ) : NEXT F 

500 REM BILDSCHIRMflUFBRU 

510 CLS : EOR fsS TO 31: PF? INT 
RT 21, f.: INK 4;"ü" ;: NfeXT f 

52Ö PRI NT INK 4; RT 21.Q; "Hii^R 

530 INK ö : PLOT 3 , 16 : DRRU 17 , 
: DRHW 0,5: DRAU -17 .0 . PI : DR.HU.I 
0,-5.: PL DT 3 . IS : DRAU ±7.0,-7: P 
LOT 3,20: DRAU 1.7 ,0,0,7: PLOT 3 , 
22 : DRRU 17,0, .7 

540 PLOT 5 , 24 : DRRU 13 , O , . 7 : PL 
OT G,S6; DRRU 11,0,-7: PLOT 3,2 3 
DRAU 7 . , . 7 

SS0 INK 7: PRINT Hl 0.0,; "PuriK. ie 
: S+iChe:0 3 t Ü f e : 1 " ; : PL 
OT , 166: DPRU 255 , © 

SSO PRINT RT 2,0; INK 6 .; e $ .; INK 

7 ; RT © , 7 ; p u ; RT Q , 2 1 .; ■-. t i .; RT , 3 
ist 

1000 REM HRUPT5CMLEIFE 
1010 POR f =0 TO £3 STEP ■ S 
3i~" X K " : LET b$sa$ 
1020 TP IN 6S37S=1Ö£ RND b 
N LET ba=b-l: LET a* = " X fl 

b$=" IT" 

1030 IP IN 65278*167 
EN LET b-b+1; LET a$ 
t b$=" X T " 

1040 PRINT RT 3(f+l) . f: INK 6; B 
R IGHT 1 ; •' aflife" J RT a tf+li+1, f.; " 
*' ; RT =. ( f + 1) -1 , f .: " " ; 

1OS0 GO TO 2000 



RND b 

" X R 



■■LET 

3 THE 

: LET 

SS TN 
" : LE 
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^>48KSPECTRUM^ 

SPLAT! 




MOUNTAINS 
OFKET 



ARCADE 

CNFfif Thf W05T" OPlGfftJAl 
AND COMPEi LiNG ARCAOE 
fiAMFS FVFfl PROnuCFO' 

vARHINÜZiPPY' 

.ltldl'.t Vi.' i|jrn::, : lldVI: Kilr IJIJ.td 

■jr- :ht:4SKSPE"IRUM It s- 
i-t'-f ld" ■■-,■ :ni: illtisl J'iii.Pijl 

■:;:ii:i[iu(Hr S ViiIbc Gdines 

TvÜW A V A II AB L F f •? OIV WH S M I T H 
Nl.HH i'5 bO 



^t^TlTf^TITJf^IiW^ 



ADVE-MTURE 

A M üf« ' I H U F AN A □ V t M ■ ;ü i 
PROGRAM' CUMbAl IM LH 
ACTIVE BEIMGS MUNtTAflY 
SKSIcM MAGIC iliüAH SflVb 
LOADIAUMY PILISMANY 
DTHiHfiAlUHLS 

As null .is h|.,iig j Ijh : >^urn^..s 
c(iiii:ii!ll'!>i; .nlui'iiiuit! in ii>m:) :'"■ 
Mountains nr Ki;i ü :hi' ti<\; ;■! ,■ .i 
p.irl küni's Ih.i! !iii:lils inlii ,< 




vctt 




1984 



THE. ÜAiVIF ÜF 
ECONOMIC SURVIVAL - 

THE3RI!ISHtC0N(IMYWITHY(.'U 
AT THE CÜNIHOLS' WHAT SOEST 
OF CHANCE LiOR WOULQ Yfjli 
MAKE VVIT.H SEVtRAL BkL.ON 
POUNDS TC S-'END & FIVL 
YfcARS TO THEKEXTGENERAi 
ELtCTiOV GRAPHIC DISPLAYS 
HISTQGHAMSÄ « f . ANMJAL 
PERFORMANCE HAT INFI ARE All 
INCLUDED fllSHG'.V HOW YÜU 
ARE OGING Hüft MANY YtASS 
ÄILL VÜULASF" 

'RtEl^SlDt Poche: ün.ch: [-■ 

Rurmi.i.j Br-Min 

NDC3 f 5 50 



All proi)r,irt:S run in rn-' 48K ZX SPECTRUM .inil , 



■ tr;jr-- ..Hl 



Pleasesend nie (tick boxu>K) requifodi 

SPLAT D MOUNTAINS OF KET D 1984 □ 



All rf! t'ü 50 Hiir.h -md 



i .nnnn 



E3 ITTTTT T-T T 

NiilT.« 

Addrt-ss 

' ISL ' INCENTIVE SOFTWARE LTD . 54 London Street. 
L J^ J Reading RG1 4SQ. Tel: Reading (0734)591678 




1060 IF <d * < > " " TUEN IF IM 3876S 
»1*0 THEN LET d * = " "; U£T x =6 
1070 IF d$s" '• TMEN ÜO TO ££00 
1100 BRIGHT «3: INK2: PRINT RT 3 
+ Lb;ä*(3 TO 51 ;PT a, b ; a $ f 1 TO 3 
) ; : BEEP .01,0: PRI NT RT a + 1 , b .; b 
$ (3 TO B) ; RT a , b; b* (1 TO 3* : NEX 

T f : PRINT RT s(ftl) , f ; " 

a ( / + 1 1 - 1 , f ; " ■ ■ . RT ä (f+1 
".; : GO TU 10 10: REM 

g^be'UPTSCHLEIFE 

2£"25© REM HORNISSEN 

20 10 3. PRINT PT 17,0; INK 6 

O C+31) 1 LET C«C~1: IF 

LET C «3S 

2020 GO Tu 1051 

2200 REM SPRUNG 

2210 LET X=x+1: IF x<6 

8aa-l: PRINT AT a+2,b; 

2220 IF X >7 THEN LET 3=3+1 

T RT a-1 , b; " 

£2 30 IF a>19 THEN LET d*-" 
2240 IF (aal? OR 3= IS) AND 
+ l+b) <>•• " DR C $ 1: C +2 + b .1 < > " 
EN GO TO 2500 

SP5Ö IF a=14. THEN PRINT RT a,b + l 
.: " "; INK. 6; BRICHT 1 ; RT alf+1 
:« / f ; *' <tf&", : IF SCREEW* Ca , b + 1) < ■:■■ 
" " THEN GO TO SS00 
£30© GO TO 1071 

2 5 00 RCn UON HORNISSE SCSTDCMEN 
2510. UET stiasti+l: PRINT RT 0,2 
1 ; INK 7 ; £ t i j RT a , b ; ". ";flT a + 1 

, b;" " ; IF sti/4. THEN GO T.ü Sfl 

00 

S930 LET djs' 1 ": LEST a=l'ä: BEER . 
1,0: BEEP .1,10: BEEP .1,20: GO 
•TO 1071 
££00 REM NEXT LEU EL 

it-it4l; PRINT RT '3,10; 

l";flT IS, 10; "| Nexv L 

1 ,7i > • *_ ■ ■ - ■-■*" ■ ■ - . 



"; RT 
+ 1 .. r .; " 



; c $ <. c ' 

1 THEN 



THEN LET 

PRIN 



1 :i tm 



3f tf hf T 



. _ . _.. _ . BEEP .1 
BEER .1,50: PRI 

I F 2 t >6 THE N G O 



lvil|"iflT 11 , 10, "| 

BEEP .1,10: BEEP .1,20: 
...30: BEEP .1,40 
NT RT 0,30; * t 
2620 LET. bee= 4 : 

TO 3000 
2G30 GO TO 4 00 

2Ö00 REM BIENE GEFRNÖEN 
£B10 PRINT RT a r. r +u , r ; " ": LE 
T bsesbSe-1: LET puapu+10*St: BE 
FP . 1,Ä0: BEEP .1,40: BEeR .1,-1 
0: PRINT RT a,b-8;" ";RT 3 + 1 / 
b; " '• ; FQR g=b TO 3 STEP -1: P 

RINT INK 6 : RT 19 , g ; " I ";flT 20,g 

.01,9: BEER .01 , -g 

<3 ; " x " ; rt aa,g; ■■ 

LET b*3 
PRINT RT 0,7.i INK 
IF bee ?-0 
£ , 0..; ink e.:e$TX T 



IF bee rß THEN GO 



Ä "; : BEEP 
PRINT RT 19 
? " .; : NEXT 9 : 
£ i3 £ L ET -a - 1 '3 : 
7 ; p u , RT' £ , © ,- " 
l'MEN PRINT RT 

(2#bee) ) ; " 
P.8'=i0 LET d* = "" 

to aecao 

2300 GO TO 1071 

300Ö REM GEWONNEN 

30 10 PAUSE 100: FÜR f=-Sß TO 50; 

BEEP .01, f : BEEP ,01,-f : NEXT f 
: PRINT RT 10,11; FLRSH 1 : " > >BRR 
UO<<"; : FOR fsl TO 30: FOR g=0 T 
30 10>PRUSE 100: FOR f=~S0 TO SO: 

BEEP . 01 , f ; BEEP .01., -f: NEXT f 

PRINT RT 10,11; FLRSH 1; " > >BRfl 

yo ', < " ; : FOR f = 1 TO 30: FOR g=0 T 

Ü 7: BORD ER g : NEXT Q : NEXT r : C 
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3020 BORDER : RftpER # . Ol,*. . pp. 
INT "Du hast es geschaht ! ! ! ! 

B o n -g o Bee c a t c h e r K onnte a l L 
k ent f 1. o henen Bienen w i e d e r e 
in- fangen .Eine hei" v o 1 r agende 

^-~~~ b£. i J s,tun 9 " : OO T '0 6OO0 

5000 REM UERLOREN 

50510 BEER .3,-33: PflPER 0t INK 7 
EORDfiR 0: CL5 POKE 23692,255 
. FÜR f«0 TO 20: RR INT BRICHT 0; 
' >>>>>>>>> > > UERLOREN <<■<<<<<<<'< 



I, " ::■ 



':".. DRIßMT 
tN <<<<<< < 
5020 CLS : RR INT 
ht geschafft M r 
e r i s t vy o n d e n 
e 1 f s r 5 t o c h e n 



HULD 



■"?■"?" 



> > > > > > > UERLOR 
NEXT f 

Du hast es- nie 

Bongo Bee catch 
t> o a s e n Ho r n i s s 
w o r d e r 1 . 

UND WER IST SC 



RINT : RR INT RR INT 

4- ; FLASH 1 ; " Mo s r d e r . 
6OÖ0 RR INT tt 1 ; " n o c h e i n rn a l 



DU" : R 
RR INT TAB 



DR XNKCY5="J" 

HR INKEY$="N" 



:0 



15? ,, 



DR 



DRR 
: 

DR 



DRRU -10.. 0; D 
10 : DRRU S ■ 5 



ttO 1 I r I N ft K Y 5 a= ■ ' . t " " 

THEN RUN £00 
6020 IF INKEY*s"n" 

THEN ST DR 
6OG0 GO TO 6 01O 
7 000 REM RH FR NGGGR RPH IK 
7010 PLOT 10,100: DRhW 10 . : DRR 
U 5 , -S : DRRU -3 , -3 : DRRU -10 . © : 
DRRU 10,0: DRRU "5,-5- DRRU ~F , »F. 
; DRRU -10,0: DRRU 0,20 ' ~ I 
702O iPLOT 4.5 , 160 : DRRU -IS . : DR 
RU .■ - 10 : DRRU 10 , Ö : DRRU -10 , : 

DRRU ö , -10; DRRU 15 , 
7 030 PLOT 65,150: DRRU -15,3: DR 
HU , - 10 : C-RRU 10 , : DRRU -10 . : 

DRRU ,0,-10: DRRU 15.0 
704.0 PLOT SR, ISO: DRRU -10,0 
RU -5,-5: DRRU . -10 : DRRU ' 5 

DRRU 10,0 
7050 PLÜT 90 , 14.0 .- DRRU 0,20: 
U 15,0: DRRU 0.-10: DRAU -15 
DRR U 15 ., B : D R R U , »10 
70 60 P L OT 1 1 , 1 6 ; Q R R U 
RU -8,0: DRRU , - 
7070 PLOT 14.5 . 160 
R H U -&,-&-. DR R U O 

DRRU 10,0 
•70eö PLOT 150,160 
KRU 0,10: DRRU 15 

DRRU , 20 
700® PLOT 1RS ■ 160 
RRU 0,-lß: DRRU 10,0: DRRU 

DRRU 0,-10: DRRU 16,0 
7100 PLOT 190,160; DRRU 10,-0: DR 
H U 5,-5: DRRU - S . - S : D RRU -10,0: 

DRRU , 10 : DRRU ' , -30 : DRRU , 1 
: DRR U F , : DRR U 1 , - 1 

"72 00 LET .3 $•.-:" DER KAMPF BONQH ß 
EECRTCHERS ": FOR f-1 TO 30 : 
BCEP . öS., f ; PRINT RT lö", f ; "aflfe" ; R 
T 10,0; ajil T O i ) , : BEER ,05'.- V ■ 

NEX f t 
72 10 PRI NT öl;" OE-J b U S fPph 

.*rr Schul, z": RR UFF 
7500 REM RN LEITUNG 

7 5 10 ; POK.E 23692.255: PP INT RT -• 1 
, O : PRINT " > > :, > > > j B EEG RTC HER 
< ■■: -: v ■•: < ■■: < ■■ " .; : PRINT ; PRINT : P 
R X N T 'Die dicKeriiffii. t e n Honiqbie 
n e n c jjnfc 3 ',,• o n eöng o e e e catche r 
s i. n d a ij :=. g e b r o c h e n . B o n g o ro u s. s 5. i 
# '.'.' ieder ein f a n g e n I D u «■ o L 1.. ■-, t 



drr u 

: DRRU 
DRRU 



, -10: 

15,0: D 
10 , 
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i hff 



"7"«;; 

h i 

r" 

u n 

--• h^ 

hin 

73 
i=: r 
7'!=; 

e r 



7b 
4Ö 



e r 



d 

! D 

(«fr 3 V 
I IT . " 

S0 PR 

v er- 
u 5- s e 
Li i=: n f 

d'i e 
d T" I i 
r d £ in 
r l'l iss 

unq : 
30 >PR 



y i e l 
4-tJ ir 



i ■=■ 9 

e r s u 



INT 



■3£ - 
f fi £ t 

fijsn 

'S f — 

e n . " 

INT 
re c 

INT 
rec 
L i n 
SP r 

G l u e 
INK 



h t 

h t 

ks 
u n 

c K 
EY 



75 50 PAUSE P 



elf e n . Fi be r Uo rsi cht 
a « K r L i chcn Hornissfi 
e n ,, i h n d a r -a n z u I • i r i 

o n g o K a n n v i e r s t x c 
ragen, beim fuenften 
t.er be n . Na ch je w ei L s. 
a n g e n *=: n Bie n e n w erd 
i c h e n v o r £■ i c h t ige r 
nrsg e L m ae££ i gc r »Fi u & 

C b «£ i n £. fi i f»'t In e T ITi •£ I" p f 

P R I N T" P R X NT " ■ £■ T £ n 
£ . ...... >X < 

PRINT • PRTNT "Steu 



■3 . . . >SPhCE<" : PRINT 
$ < > •"• '"• THEN BO TO '7 5 
G Ü T O i 6 
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Tonprogramm 




Tonprogramm 

Dieses Programm ermöglicht es, mit 
dem sonst tonlosen ZX-81 die ver- 
schiedensten Töne bzw. ' Tonfolgen 
wiederzugeben. Benötigt wird hierzu 
ein Mittelwellen-Radio, das dicht ne- 
ben den ZX-81 gestellt wird. 
Das erste Byte der REM-Zeilen dient 
der Ton be Stimmung und kann von 0/ 
hoch bis 255/Tief in 16514 eingepokt 
werden. Die Lange des jeweiligen 
Tones wird in 16516 und 16519 festge- 
legt, wobei in beiden Speicherstellen 
Werte von 1-255 eingepokt werden 
können. Sinnvoll ist es jedoch, in 
16516 Werte von 1- 5 zu poken, da der 
Ton sonst zu lang werden kann. Hier- 
bei ist zu beachten, daß die hohen Tö- 
ne kürzer ausfallen wie tiefe Töne. Bei 
der Programmierung einer Melodie 
sollte man den tiefen Ton kurz und im 
Gegensatz hierzu den hohen Ton lang 
wählen, indem man ihn beispielswei- 
se 2m al programmiert. Mit der Spei- 
cherstelle 16535 kann die Tonlage um 
ganze Blöcke verschoben werden, 
wobei der sinnvolle Bereich hierbei 



zwischen und 20 liegen wird. Haben 
Sie erst einmal eine Melodie program- 
miert und wollen nun Tonlage und 
Tonlänge ändern, so ist dies durch 
Unterbrechen des Programms mit M 
und neuer Eingabe von L und K mög- 
lich. 

Pokt man nach der letzten Eingabe ei- 
ne 0, so geht der Rechner automatisch 
in das Basic-Programm zurück. 
Und so wird's gemacht: 
Geben Sie das folgende kleine Basic- 
Programm,' das zur Eingabe des .Ma- 
schinencodes dient ein und starten Sie 
es mit RUN. Nun kann der Maschi- 
nencode (16516-16580) eingegeben 
werden. 

Hierbej werden natürlich lediglich die 
Code-Zahlen (60, 6,1 .. . 64) eingege- 
ben. Nach Beendigung dieser Eingabe 
werden die Zeilen 20-80 des Vorpro- 
gramms gelöscht und das Hauptpro- 
gramm eingegeben. Starten Sie das 
Programm nun mit RUN und -r sofern 
Sie es richtig eingegeben haben - viel. 
Spaß! 
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1 REM <70 ZEICHEN EINTIPPEN) 

20 POKE 165113,0 

38 FOR N* 165 14 TO 1658© 

40 INPUT A 

50 POKE N,fl 

60 SCROLL 

70 PRINT N/R 

8@ HEXT H 



ZX-81 



16514 


- 60 


16547 - 


16 


16515 


- 6 


16548 - 


22? 


16516 


- 1 


16549 - 


193 


1651? 


- 19? 


16550 - 


16 


16518 


- 6 


16551 - 


221 


16515 


- 208 


16552 - 


62 


16528 


- 19? 


16553 - 


127 


16521 


- 58 


16554 - 


38 


16522 


- 138 


16555 - 


4 


16523 


- 64 


16556 - 


219 


16524 


- 71 


16557 - 


254 


16525 


- 62 


16558 - 


164 


16526 


- 254 


16559 - 


200 


1652? 


- 211 


16560 - 


62 


16528 


- 255 


16561 - 


fl 


16529 


- 16 


16562 - 


58 


16530 


- 252 


16563 - 


42 


16531 


- 175 


16564 - 


120 


16532 


- 211 


16565 - 


254 


16533 


- 255 


16566 - 





16534 


- 6 


1656? - 


200 


1.6535 


- 5 


16568 - 


50 


16536 


- 197 


16569 - 


130 


1653? 


- 58 


16570 - 


64 


16538 


- 130 


1.6571 - 


42 


16539 


- 64 


16572 - 


179 


16540 


- 71 


16573 - 


64 


16541 


- 16 


16574 - 


35 


16542 


- 254 


16575 - 


34 


16543 


- 193 


16576 - 


179 


16544 


- 16 


16577 - 


64 


16545 


- 246 


16570 - 


195 


16546 


- 193 


16579 - 


131 






16580 - 


64 



7 

10 

20 

30 

40 

50 

60 

70 

200 

210 

238 

232 

234 

236 

240 

245 

250 

260 

270 

230 
290 
300 
310 
320 
338 
340 
350 
400 
410 
420 
430 

500 

510 
520 
530 

1000 

1001 
1010 
1050 
1060 

1870 
1080 

1090 
1100 
1200 

1202 
1203 
1204 
1205 
1219 
1215 
1220 
9900 



PRINT "TONEINGfl'BE" 

PRINT "BEENDEN DER EINGABE MIT 308" 

FOR N*30721 TO 32766 

INPUT R 

IF fl=300 THEN GOTO 200 

POKE N,R 

SCROLL 

PRINT R 

NEXT N 

FAST 

PRINT "UNTERBRECHEN MIT TRSTE M" 

PAUSE 100 

POKE 16563,1 

POKE 16564, 120 

CLS 

RRND USR 16515 

PRINT "STOPPEN DES TONS MIT TRSTE M" 

PRINT "TONLRENGE VERSENDERN DRNN L" 

PRINT "TONLAGE VERAENDERN DRNN K" 

PRINT "NOCHMRL HOEREN DRNN R" 

PRINT "NOCHMRL PROGRAMMIEREN DANN P" 

PAUSE 33000 

IF INKEY*="P" THEN GOTO 5 

IF INKEY$="R" THEN GOTO 232 
THEN GOTG 400 
THEN GOTO 500 



IF INKEY**"K" 
IF INKEY**"L" 



CLS 
LIST 

PRINT "TONLAGE '"iPEEK 16535 

INPUT R 

POKE 16535, R 

GOTO 232 

PRINT "TONLRENGE '";PEEK 16519 

INPUT R 

POKE 16519, R 

GOTO 232 

REM DEMÖNSTRAT IONTEIL 

REM PROGRAMMIERUNG 

LET fl=30721 

FOR N«20 TO 255 

POKE ft,N 

LET R*R+1 

IF A*32000 THEN GOTO 232 

NEXT N 

GOTO 1036 

REM SAVE 

FOR N=0 TO 50 

SLOW 

FAST 

NEXT N 

SRVE "TDr." 

PAUSE 20 

GOTO 1000 

REM COPYRIGHT BY MARKUS DIEDRICH ROLLSHAUSEN 5/84 
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Aldebaran 

Sie sind Kommandant eines kleinen 
Raumkreuzers, der sehr gut bewaff- 
net ist (im unteren Teil des Bild- 
schirms). Sie sollen zu einem Erkun- 
dungsflug hinter den feindlichen Li- 
nien starten. Ihnen kommen jedoch 
feindliche, unbewaffnete Raumschiffe 
entgegen. Im unteren Teil des Bild- 
schirms läuft der Countdown. Ist er 
bei angelangt, kommen Ihnen weite- 
re, größere Raumschiffe entgegen. 
Diesen müssen Sie ausweichen. 
Das erste Raumschiff ist ein „Zei- 
chen" breit, das letzte Raumschiff ist 
fünf „Zeichen" - breit. Sollten dann Ih- 
re sieben Raumschiffe noch nicht zer- 
stört sein, erhöht sich die Geschwin- 
digkeit und die „Drei-Zeichen-Raum- 
schiffe" kommen Ihnen wieder entge- 
gen. Diese Steigerung hält so lange an, 
bis Ihre sieben vorhandenen Raum- 
schiffe zerstört sind. Nach jedem SC- 
ROLL-Schritt wird der Punkte-Stand 
um eins erhöht. Die mit „V" gekenn- 
zeichneten Raumschiffe können von 
Ihnen, abgeschossen werden. Bei je- 
der Kugel, die Sie abfeuern, wird Ihr 
Punkt-Stand um zwei verringert, bei 
jedem Treffer wird er um fünf erhöht. 
Unten links wird angezeigt, wieviele 
Raumschiffe Sie noch besitzen. Oben 
rechts wird der High- Score angezeigt. 
Die Tastenbelegung: 1-5 nach links 
6-0 nach rechts 
A-G Schuß 

Hinweis: Das „Vier-Zcichen-Raum- 
schiff" kann bewußt nicht abgeschos- 
sen werden. Da nun aber ein Durch- 
kommen sehr schwer ist, kann das 
Maschinenprogramm umgeändert, 
werden, indem Sie foldendes einge- 
ben: 

POKE 16777.59 

POKE 16780.59 
Originalzustand wieder herstellen: 

POKE 16777,1 

POKE 16780,2 
Eingabe des Programms „Aldebaran" 
In die erste REM-Zeile müssen 1126 
beliebige Zeichen. Dies wird am be- 
sten realisiert, wenn man zuerst 704 
Zeichen eingibt und dann Newline 
drückt. Dann holt, man die Zeile mit 
EDIT herunter, fährt mit dem Cursor 



hinter REM. und gibt dann weitere 
422 Zeichen (oder ein paar mehr) ein. 
Der Rest des Programms ist kein Pro- 
blem mehr, denn man gibt alles genau 
nach Listing ein. 

Vor dem Starten des Programms mit 
RUN, sollte man es sicherheitshalber 
absaven. Dann wird gestartet. Falls 
das Programm aussteigt, haben Sie ir- 
gend etwas zwischen den Zeilen 1050 
und 1550 falsch eingegeben. Läuft das 
Programm dann einwandfrei, können 
die Zeilen 1000- 1550 gelöscht werden 
(spart Ladezeit). 

Dann wird das Programm mit RUN 
9990 endgültig abgesavt. 
Achtung: Die 1126 beliebige Zeichen 
in der ersten REM-Zeile lassen sich 
natürlich auch mit dem in Heft 5 von 
„Computronic" abgedruckten REM- 
Schreiber eingeben. 




Funktion 

In der ersten REM-Zeile wird das 
1126 Byte lange Maschinenprogramm 
abgelegt. 

Ab Zeile 1000 werden immer 88 Zah- 
len in der Stringvariablen Z$ abge- 
legt, dann wird ins Unterprogramm ab 
Zeile 1500 gesprungen. Dort werden 
die Zahlen in die erste REM-Zeile ge- 
pokt. Danach kommen die nächsten 
88 Zahlen ab Zeile 1 120 usw. 
In den Zeilen 1800-1820 werden die 
Variablen G$ und der High-Score H$ 
sowie die Geschwindigkeit B defi- 
niert. In den Zeilen 2100-2180 wird 
das Bildschirmdisplay aufgebaut. 
In den Zeilen 2200-2240 werden ver- 
schiedene Daten für das Maschinen- 
programm sowie die Geschwindigkeit 
eingepokt. 

In der Zeile 2300 wird in das Maschi- 
nenprogramm eingesprungen, das 
erst wieder verlassen wird, wenn Sie 
das Maschinenprogramm mit der 
Break -Taste unterbrechen oder wenn 
Sie alle sieben Raumschiffe verloren 
haben. 

Nach dem Rücksprung ins BASIC 
wird der Spielstand in den Zeilen 
2400-2450 in der Variablen G$ abge- 
legt. 

G$ wird mit dem High-Score H$ ver- 
glichen. Wenn G$ größer als H$ ist 
(Stringvariablen vergleich), so wird in 
H$ der neue Wert abgelegt (Zeile 
2460). 

Ab der Zeile 2490 beginnt das Menue, 
hier können Sie wählen, ob Sie die 
Spielanleitung lesen wollen oder ob 
Sie die Geschwindigkeit des Spiels 
verändern wollen. 

Ab Zeile 2480 beginnt die Geschwin- 
digkeitsänderung; dabei wird die jet- 
zige Geschwindigkeit angezeigt. Da- 
nach kann die neue Geschwindigkeit 
eingegeben werden. 
Ab Zeile 3000 beginnt die Spielanlei- 
tung. 

Ab Zeile 9990 wird das Programm ge- 
saved und anschließend gestartet 
(Autorun). 



Computronic 



43 



ZX-81 



1 


REM 


. . . 1126 


BEL. 


ZE3 


:chein 


:. . . 


2 


REM 












2.0 


REM 
REM 












20 


. , .R.L.D 


.E.e 


. fi.R 


. R.N 


!. . . 


30 


REM 

REM 
REM 
REM 












4.0 


. . <C> . . . 
. . . GEORG 


. 19ß 








50 








60 


. HUONKER 






70 


REM 


. . . .ERLEHBRCHHOF 






e© 


REM 


.7463. .ROS. - 


LEIDRINGEN. 


90 


REM 












1000 


REM 


MRSCH INENPROGRflMM 




1310 


FAST 












1050 


LET 


Z =16539 










1100 


LET 


Z*="033 


145 


064- 


034 


14 1 


084 


03* 


143 064 


042 


012 


064 


001 


163 


002 


009 034 


132 


064 


Q33 


146 


064 


034 


141 064 


034 


143 


064 


042 


012 


064 


001 163 


0O2 


009 


034 


132 


064 


033 


255 255 


034 


©52 


064" 




1110 


LET 


Z* = Z$i*" 


034 


147 


064 


042 


052 


0/84 


£37 075 


147 


064 


167 


237 


066 


220 


025 068 


2©5 


234 


067 


205 


082 


065 


205 094 


066 


SOS 


015 


065 


205 


239 


066 205 


006 


065 


205 


04-9 


5365 


205 


163 065 


121 


050 


139 


064 


1115 


GOSUB 1500 










1120 


LET 


Z$="20S 


209 


65 


205 


110 


066 


205 


239 066 


205 


096 


067 


205 


©69 


066 


195 203 


064 


058 


037 


064 


006 


127 


184- 192 


193 


201 


©42 


012 


064 


229 


001 115 


002 


017 


214 


002 


0SS 


229 


017 033 


000 


025 


229" 




1130 


LET 


Z**Z*+" 


209 


225 


237 


154 


£25 


001 


100 000 


009 


006 


030 


»35 


054 


128 


016 251 


201 


006 


025 


058 


137 


064 


128 071 


042 


130 


064 


125 


035 


034 


130 064 


144 


048 


253 


128 


042 


012 


064 ©01 


101 


000 


009 


006 


1135 


GOSUB 1500 










1140 


LET 


2$="00S 


079 


009 


195 


091 


065 


042 


134 064 


04-3 


124 


181 


032 


251 


201 


058 137 


©64 


O06 


005 


184 


202 


160 


065 0O6 


004 


184 


202 


1-54 


065 


006 


003 164 


202 


14-5 


06S 


006 


«302 


184 


202 133 


065 


054 


006* 


* 


1150 


LET 


Z$=Z$+" 


035 


054- 


002 


035 


©54 


059 


035 054 


001 


035 


054 


134 


201 


054 


131 Q35 


054 


©Ol 


035 


054 


002 


035 


054 131 


201 


©54 


135 


035 


054 


059 


035 054 


004 


201 


054 


006 


035 


©54 


134 201 


©54 


186 


201 


05© 


11SS 


GOSUB 1500 










1160 


LET 


Z$="139 


064 


079 


058 


©37 


054 


006 


247 164 


032 


002 


203 


193 


006 


239 


184 ©32 


002 


203 


201 


0OS 


253 


184 


032 002 


203 


209 


006 


245 


184 


032 


004 203 


193 


203 


209 


006 


237 


184 


192 203 


201 


203 


209' 


" 


1170 


UET 


2J=2$+" 


201 


042 


132 


064 


058 


139 


064 079 


203 


065 


196 


236 


065 


203 


073 196 


246 


065 


203 


081 


196 


000 


066 175 


050 


139 


064 


201 


043 


126 


006 133 


1S4 


200 


034 


132 


064 


201 


035 126 


006 


005 


184 


2O0 


1175 


GOSUB 1500 










1180 


l_ET 


Z*='*034 


132 


364 


201 


058 


145 


064 


006 000 


184 


192 


058 


14© 


064 


203 


071 032 


Q26 


042 


132 


064 


034 


141 


064 205 


112 


©68 


205 


112 


068 


052 


002 050 


145 


064 


058 


140 


064 


203 


199 050 


140 


064 


201' 


" 


1190 


LET 


Z$=Z$+" 


203 


079 


192 


042 


132 


064 


034 143 


©64 


205 


112 


066 


205 


112 


ese 062 


0©2 


050 


145 


054 


058 


14-ß 


364. 2©S 


2-37 


S5S 


140 


©64 


201 


042 


132 064 


126 


006 


128 


184 


„229 


196 


159 066 


225 


054 


166 


042 


1195 


GOSUB 1500 










1200 


UET 


z*="a4i 


©64 


054 


149 


Z>42 


14.3 


064 


054 149 


201 


042 


132 


064 


054 


128 


042 141 


©64 


©54 


126 


042 


143 


064 


054 128 


2©1 


058 


145 


064 


006 


000 


184 ©40 


004 


061 


050 


„145 


064 


058 


140 ©64 


079 


203 


071 




1210 
44 


LET 


Z*=Z$+" 


2©2 


161 


066 


042 



141 064 229 ©4-2 

000 025 209 167 

066 042 141 064 

237 082 034 141 

079 203 079 20© 



S12 064- 017 196 

237 ©82 210 193 

017 033 ©00 167 

064 ©58 140 064- 

042 143 064 223 



1215 


GOSUB 1500 










1220 


LET 


Z$ = " 


©42 


012 


064 


017 


198 


000 


025 


209 


167 


237 


©62 


210 


220 


066 


042 


14-3 


064 


017 


033 


00© 


167 


237 


082 


©34 


143 


054 


201 


17S 


05© 


145 


064 


©SS 


14© 


064 


£©3 


135 


050 


140 


064 


033 


146 


064 


©34 


141" 




1230 


LET 


Z*=Z$+" 


©64 


195 


161 


065 


175 


050 


145 


064 


058 


140 


064 


203 


143 


050 


140 


064 


033 


146 


064 


034 


143 


064 


20 1 


©58 


14© 


064 


203 


071 


202 


©20 


057 


042 


141 


064 


022 


S00 


020 


126 


006 


059 


164 


202 


056 


067 


1235 


GOSUB 1500 










1240 


LET 


Z* = " 


'006 


12© 


184 


194 


076 


067 


001 


033 


000 


009 


062 


001 


186 


202 


252 


066 


056 


140 


064 


203 


075 


200 


042 


143 


064 


022 


000 


020 


126 


006 


059 


184 


2©S 


©67 


©67 


0©6 


126 


164 


194 


067 


067 


001 


©33 


00©' 




1250 


LET 


Z$=2$+" 


009 


062 


001 


186 


202 


031 


067 


201 


058 


140 


064 


203 


223 


050 


140 


064 


195 


02© 


067 


058 


14-0 


364 


203 


231 


050 


14© 


064 


201 


058 


140 


064 


203 


239 


050 


140 


084 


195 


020 


067 


058 


140 


064 


203 


247 


1255 


GOSUB 1500 










1260 


LET 


Z$ = ' 


'050 


140 


©64 


201 


05© 


14-0 


064 


203 


111 


196 


188 


067 


058 


140 


864 


203 


119 


196 


211 


067 


058 


140 


064 


203 


095 


196 


129 


067 


05S 


140 


064 


203 


103 


196 


139 


067 


201 


04-2 


141 


064 


205 


149 


067 


205* 


1 


1270 


LET 


Z$=25+" 


18S 


067 


201 


042 


143 


064 


SÖS 


149 


«67 


20S 


211 


ÖS 7 


201 


001 


033 


000 


©09 


126 


005 


■iae 


184 


032 


006 


001 


033 


00© 


167 


237 


065 


062 


128 


043 


043 


119 


035 


119 


035 


119 


03S 


119 


035 


119 


005 


005 


127S 


GOSUB 1500 










1280 


LET 


z$ = - 


' 197 


2©S 


234 


067 


193 


016 


249 


201 


175 


050 


145 


064 


056 


140 


064. 


203 


135 


203 


159 


203 


175 


050 


140 


064 


033 


146 


064 


034 


141 


064 


201 


175 


©50 


145 


©64 


058 


14© 


064 


203 


143 


203 


167 


203 


183' 


■ 


1290 


LET 


Z*=Z*+" 


050 


140 


064 


033 


146 


064 


034 


143 


064 


201 


042 


012 


064 


001 


079 


000 


009 


126 


006 


165 


184 


040 


003 


060 


119 


201 


054 


155 


043 


126 


006 


165 


184 


040 


003 


060 


119 


201 


054 


156 


©43 


126 


006 


165 


1295 


GOSUB ISO© 










1300 


LET 


Z* = ' 


'184 


040 


003 


060 


119 


201 


054 


1S6 


043 


126 


060 


119 


201 


042 


147 


064 


©01 


050 


e©© 


167 


237 


065 


034 


147 


064 


042 


012 


06 4 


001 


015 


©03 


009 


126 


006 


156 


184 


040 


003 


061 


119 


201 


054 


165 


043' 


* 


1310 


LET 


Z*-Z$-*-" 


126 


006 


156 


184 


040 


003 


061 


119 


201 


058 


137 


064 


005 


001 


184 


229 


204 


095 


068 


225 


061 


050 


137 


064 


054 


161 


035 


054 


165 


033 


255 


255 


034 


147 


064 


034 


©52 


064 


201 


062 


004 


050 


137 


054 


1315 


GOSUB 1500 










1320 


LET 


Z$=" 


'042 


134 


064 


001 


044 


001 


237 


066- 


. 034 


134 


064 


201 


042 


012 


064 


001 


079 


000 


009 


126 


006 


156 


184 


040 


003 


061 


119 


201 


054 


165 


043 


126 


006 


156 


164 


04 


003 


051 


119 


201 


©54 


165 


043 


126' 


11 


1330 


LET 


Z*=Z$+" 


006 


156 


184 


04© 


003 


061 


119 


2©1 


054 


165 


043 


126 


061 


119 


201 


042 


012 


064 


001 


000 


003 


009 


©06 


000 


058 


136 


064 


079 


060 


050 


136 


064 


157 


237 


055 


126 


006 


128 


184 


040 


034 


054- 


128 


042 



1335 GOSUB 1500 

1340 LET 2$="012 064 001 133 000 
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009 

030 

035 

334- 

058 

134-5 

1350 

14-00 

1500 



1510 
1520 
1530 
154-0 
1550 
1600 
1810 
1830 
2000 
2010 

ai00 



052 019 054- 133 035 051 0©6 

054 126 035 016 251 054- ©05 

054- 113 035 00S 000 1S4. 032 

201 193 193 193 201 000 04-5 

052 051 04-6 04.2 055 000" 

GOSUB 1500 

SLOW 

RUN 1803 

REM MfiSCHINENPROGRRMH IN 

DIE ERSTE REH -ZEILE 

POKEN 
LET Z=Z+1 

POKE Z..WM- Z*Ü TO 3> 
LET Z$=Z$ (5 TO J 
IP Z*ä"" THEN RETURN 
GOTO 1501 
LET G*="[ 
LET H*="i 
L-ET B-10 
REM SPIEL. 
CL5 
LET Rg=" ■ 



Slia^POKE 16418.0 
2120 PRINT R* 
2130 PRINT "S 
A N 1 

21S0^FOR N = l TO 2© 
2150 PRINT R$ 
2170 NEXT N 
;iht 



fi L D £ B R R 



SCORE..' 0*e>08 HI-5 



K'A^PtA« 



16521,5 
16515,0 
16520.0 
16518.255 
16513;.B 
USR 1654-0 
R=PEEK 16396 +255 *PEEK 



[00 POKE 

22 10 POKE 

2220 POKE 

2330 POKE 

224.0 POKE 

2300 RAND 

24-00 LET 
5397 

2410 LET S=A+?4- 

24.20 FOR N = l TO S 

24-30 LET S*S*i 

24-4-0 LET G#<N)=CHR* PEEK S 

24-50 NEXT N 

24-50 IF G*>H$ THEN LET H*=G$ 

24-70 IF GS=H$ THEN PRINT AT 3,0J 

ISIE HABEN SOEBEN DEN REKORD 
GEBROCHEN 



24-80 PRINT 

34-90 PRINT 

2500 PRINT 

2510 PRINT 
XT AENDERN 

2520 PRINT 

2530 PRINT 



RT 

ß 

R! 



5,0; R$; A* 






SPIEL 

SP IELRNLEITUN 

ÖE3CHW I«D IQKE 



INKEY*="1" THEH GOTO 200 

2550 Xf=- INKEY* = "2" THEN OOTO 300 



2560 IF IHKEN^^'O" THEN OOTO 258 



2570 GOTO 254-0 
2580 REM GESCHW. AEND 
2S90 PRINT A$;A*;A*;" 
ESCHWINDIGKEIT; ";B;" 
2600 PRXNT R 
'M 



ETZIGE G 



BITTE. EINGABE GE50 



2620 POKE 154 18,2 

2530 INPUT B 

264-0 IF B<1 OR B>25© THEN GOTO 2 

©30 

2660 GOTO 2000 

2900 STOP 

3000 REM SPIEL ANLEITUNG 

3010 CLS 

3020 PRINT " ALP 

R 



_8 N 



3030 PRINT 



E B R 



R SEHR GUT 
OLLEN ZU 



3050 PRINT 
INDLICHE, 



BITTE TASTE DRUE! 



ÖPIELfiNLElTüNS: " , , 

6*3 40 PRINT "SIE SIND KOMMANDANT 

EINES KLEI- NEN RAUMKREUZERS . DE 
BEURFFNET IST. SIE S 
EINEM ERKUNDUNGSFLUG 
HINTER DEN FEINDLICHEN LINIEN S 

TRRTEN . " 

IHNEN KOMMEN ABER FE 
JEDOCH UNBEWAFFNETE 

RAUMSCHIFFE ENTGEGEN. IHNEN MUES 

5EN SIE RUS-UEICHEN - ODER RBSCH 

IESSEN. " 

3060 PRINT "ES KOENNEN NUR RAUMS 

CHIFFE DIE MIT EINEM ""U"" GEKE 

WNZEICHNET SIND ABGESCHOSSEN 

UERDEN. EINEN CRASH UEBERL 

EBEN SIE SECHSMAL." 

3070 PRINT " TASTEN 1-5 : L. 

INKS" 

3080 PRINT " TASTEN 6-0 : R 

ECHTS" 

3090 PRINT " TASTEN A-G : S 

CHUSS" 

3100 PRINT RT £1,31; "B" 

3110 FOR Nal TO 5 

3120 NEXT N 

3130 PRINT RT 21,31;" " 

314-0 FOR N = l TO 5 

3150 NEXT N 

3160 IF INREY*< j-"' 1 THEN GOTO 200 



3170 GOTO 3100 

99«0 SAUE "ALDEBARftSO" 

3995 RUN 
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II 



i 



Library 



LIBRARY 

Eine luxuriöse Diskettenverwaltung 
für Tipp jaule ' 

Zwar gibt es schon eine Menge guter 
Disketten- oder ganz allgemein Da- 
tenverwaltungsprogramme, aber bis- 
300 Programmnamen mit zugehöri- 
gen Daten (Diskvolume/Filetyp/An- 
zahl der Sektoren etc.) in ein solches 
Programm eingegeben sind, hat man 
wunde Finger. 

Vorliegendes Programm spart hier die 
entscheidende Arbeit: Der Diskcata- 
log der in Drive liegenden Diskette 
kann per „Einfingerautomatik" pro- 
grammweise in die Datei übernom- 
men werden; die gedrückte Taste muß 
dem Anfangsbuchstaben einer der 
möglichen acht Kategorien entspre- 
chen. Bei (Return) wird das jeweilige 
Programm nicht übernommen, und 
sollte man sich einmal getäuscht ha- 
ben, wird auch angezeigt, daß das 
Programm schon in der Datei exi- 
stiert. 

Die Eingabefolge (LCC Return) listet 
z. B. die gesamte Datei nach Katego- 
rien sortiert auf dem Bildschirm; (L A 
P Return) alphabetisch auf dem Druk- 
ker, wobei die möglichen Komman- 
dos jeweils am oberen Bildschirmrand 
angezeigt werden, ebenso wie der 



Klartext der bisher eingegebenen 
Kommandos. Im Editiermodus ver- 
birgt sich außer der schon beschriebe- 
nen Automatikfunktion auch die not- 
wendige Möglichkeit zum Suchen und 
Ändern der Datei sowie natürlich zum 
Löschen bestimmter Files und eine 
„Option" zur manuellen Eingabe, da- 
mit auch CP/M-Disk ihren Platz in der 
Library finden. Nach (R Return) bietet 
das Programm einen Überblick vom 
Inhalt der Library: Anzahl der Files 
pro Kategorie, deren Speicherplatz 
usw. Ferner ist per (D Return) die 
Möglichkeit gegeben, die wichtigsten 
DOS-Kommandos (LOCK UNLOCK 
DELETE) wieder mittels eines Fin- 
gerdrucks in bezug auf die in Drive 
befindlichen Programme zu geben. 

Wer jetzt noch die übliche Sortierrou- 
tine vermißt, dem sei gesagt, daß man 
dies auch zwischendurch machen 
kann. Tatsächlich befindet sich die 
Datei permanent alphabetisch sor- 
tiert auf der Diskette und wird nach 
jeder Änderung auch dort wieder ab- 
gelegt. Dies ist zwar etwas umständ- 
lich, hat aber den Vorteil, daß jeder- 
zeit (auch über die DOS-Routine) das 
Programm verlassen werden kann, 



wenn man es wünscht. 
Das Programm ist, sofern es sinnvoll 
und möglich war, strukturiert ge- 
schrieben und hat eine klare Baum- 
struktur (s. Abb. 1), wobei aus jeder 
Ebene mittels einfachem Druck der 
Q-Taste zur Hauptkontrollschleife 
zurückgesprungen werden kann. 
Die Zeilennumerierung würde mit 
Absicht so vorgenommen, daß jeder- 
zeit auf die „Pseudoremarks" verzich- 
tet werden kann (beim Abtippen), sie 
werden vom Programm nicht ange- 
sprungen. 

Die wichtigsten Variablen sind in Ta- 
belle 1 angegeben. Sollte es beim Ein- 
geben des Programms Schwierigkei- 
ten geben, steht der Autor gern unter 
der genannten Anschrift zur Verfü- 
gung. 

Ein Tip noch: Da beim ersten „RUN" 
noch keine Datei LIBRARY auf Ihrer 
Diskette existiert, kommt es logi- 
scherweise zum OUT OF DATA-Er- 
ror in Zeile 48. Hier bitte das Pro- 
gramm mit GOTO 1000 wieder starten 
und mit (E M E Return) einen beliebi- 
gen ersten File editieren - der Fehler 
tritt dann ab sofort nicht mehr auf. 



MAINCONTROL 




Abb. 1 



LIST 



CATEGORY ALPHABETH 




REPORT 




EDIT 



PRINTER S CONSOLE 




MANUAL 



DOS- 




AUTOMATIC! SEARCH& CHANGE 



ENTER 
NEW FILE 


DELETE 
FILE 



FILENAME 
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GOTO 20 

2 "* * 

3 •** 

4 "* 

5 '•* 

6 "* 

r »* 

8 "* -* 

9 ******************************* 

IQ "*******************: ********* 



11 
12 

20 

zz 

24 
26 
28 
30 
32 
34 
36 
38 
40 
42 

44 

46 
46 
50 
52 
54 
56 
58 
60 
62 
64 



CO 1984 BY KLAUS SCHMIDT" * 

* 

BLESSMANNSTR.l B 

* 
2850 BREMERHAVEN 1 



* INITIALISION & READ LIB. * 

'****************<*********.*** 

HOME 



DIM C$(40) :D$ = CHR$ 
M : FOR X = TO 2:C$ = C$ 
READING LIBRARY ,, : GOSUB 120 
= TO 40: READ C*(X): NEXT X 
= C$ ( ) + C$ (1 ) 
= C$(4) + C$(5) 
= C$(ll) + "OR 
= C$(8) ♦ C$(9) 
= C$(6) + C$(7) 



C$(35) * 
CL$(2) 
14 TO 19 



C$(36) 



C$ ( 2 ) + 
C$ ( 1 ) 

C$ ( 1 ) 
C$(38) * 
C$(i0) 
+ C$( 10) 



TEXT 

C$ = " 

1$ = " 

FOR X 
CL$(0) 
CL$(1 ) 
CL$(2) 
CL$(3) 
CL$(5) 
CL$(6) 
CL$ ( 4 ) 

FOR X 
(10) 
CL$(8) = C$(39) + C$(40) 

PRINT D$;C$(21 ) ; C$ ( 20 ) 

PRINT D$;C$(23);C$(20) : 
N = N ♦ 22 

DIM FA$ ( N ) , FD$ ( N ) , FL$ ( N ) , FT$ ( N ) 

IF N = 22 THEN GOTO 1000 

PRINT D$;C$(21) ;C$<20) 



(4) 



NEXT 



C$(3) 



C$ ( 1 ) 



CL$(7) = CL$C7) 



C*( 10) 



C$(X); NEXT 



Tabelle 1 






Variablenliste 






Nummerisch Zeichenkette 


Bedeutung 


x,y,z 




Schleifen- 
zähler/ 

Zeiger 


i 




Zeiger auf 
Komman- 
dozeile 


pf 




Printern ag 
1 =AN 
0=AUS 


cv 




Cursorpos 
Vertikal 


ch 




Cursorpos 
Horizontal 


n 




Anzahl 
Files 


p,pn 




Inhalt 
Cursorpos 
cv/ch 
(+D 


C$(X) 




Koversa- 
tionsword 


CL$(X) 




Komman- 
dozeile 


K$ 




Letzte. 

Eingabe 


IS 




Informa- 
tionszeile 


FA$,FD$,FL$, 


File-name, 






-di.sk- 






volume, 


FT$,FK$,- 


(X) 


-länge 

-typ, 

-kategorie 


:CL$(7) = CL$(7) + C$ 







INPUT N: PRINT D$ ;C$ (22 ) ;C$ ( 20 ) 



FK$(N) 



PRINT D$;C$(23) 
FOR X * TO N: 
PRINT D$;C$(22) 
GOTO 1000 



C$(20) ! INPUT N 

INPUT FA$(X) ,FD$(X) ,FL$(X) ,FT$(X) ,FK$(X) : 
C$(20) 



NEXT X 



96 " **************** ***********«" 

97 "« LINE 100-710 SUBROUTINES *" 

9g "*************************:***•• 

99 M COMMAND/PROMPT - LINEOUT " 

100 VTAB 1: HTAB 1: PRINT CS 
105 VTAB 1: HTAB 1; INVERSE 

110 PRINT CL*<I);: NORMAL : GET K$ : PRINT 

115 IF K$ = "CT THEN POP : POP : GOTO 1000 

120 VTAB 2: HTAB 1: PRINT C$ 

125 VTAB 2; HTAB 1: FLASH 

130 PRINT 1$ 

135 NORMAL : RETURN 

140 GOSUB 120: GOSUB 100: RETURN 

147 ** ***************************" 

148 "* PRINT FILENAME&DATA 

1.4 9 "***************************" 

150 




IF L = THEN 
": NORMAL 



INVERSE : PRINT *' # VOL SEC T C NAME 
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155 IF X < 10 THEN PRINT " " j 

160 PRINT X;" "■FDStX);" ";FL*(X); M "jFTSCX);** ";FK$(X);" " ; 
165 IF LEN (FA$(X)) < 23 THEN PRINT FA$(X);L = L + 1; RETURN 
170 LL = LEN <FA$(X) ) 
175 FOR ZZ = LL TO 1 STEP - 1 

180 IF MID* (FA*(X),ZZ,i> = " " OR MID$ <FA*(X> ,ZZ, 1 ) = "-" THEN PRINT 
LEFTS ' (FA$(X),ZZ): HTAB 16: PRINT RIGHTS (FA$(X),LL - ZZ):L =■ L + 
2:ZZ = 1 
185 NEXT ZZ: RETURN 

198 M * SAVE LIBRARY ON DISK *" 

200 PRINT D$;C$(21) ;C$<20) : PRINT D$ ; C$( 24 ) ;C$ (20 ) : PRINT N 

205 FOR X = TO N 

210 PRINT FA$(X): PRINT FD$(X) 

215 PRINT FL$(X): PRINT FT$(X) 

220 PRINT FK$(X) 

225 NEXT X 

230 PRINT D$;C$(22) ;C$(20): RETURN 

247 *****»***********************" 

248 "* FIND CATEGORY *" 

249 "***************************" 

250 X a 27 

255 IF K$ = LEFT$ (C$(X),1) THEN RETURN 
260 X = X + 1 : IF X > 34 THEN RETURN 

265 GOTO 255 - 

29? "***************************" 

298 "* WAIT AND CLEAR SREEN "*" 

299 "***************************" 

300 VTAB 23: HTAB 30: PRINT "<RETURN>" ; : GET X$ : L = 0: VTAB 3 : HTAB 1 
305 FOR Y = TO 20: PRINT C$ ; : NEXT Y: VTAB 4: RETURN 

347 "***************************** 

348 "* FIND FILENAME *" 

349 "***************************" 

350 X = 

355 IF FA$(X) = SU$ THEN RETURN 
360 IF X > N THEN RETURN 

365 X = X ♦ 1: GOTO 355 

3Q7 "********** *****************" 

398 "* FIND X FOR SORT 

3Q9 *' *************************** " 

400 X = 

405 IF FA$(X) > N$ THEN RETURN 
410 IF X = N > 1 THEN RETURN 
415 X = X - 1: GOTO 405 

447 " ***************************" 

448 "* PUSHDOWN FOR SPACE 

449 "***************************" 

450 FOR Y=XTON:Z=Y+l: GOSUB 550: NEXT Y:N = N - 1: RETURN 

4Q7 "***************************'* 

488 "* PULLUP TO FILL 

499 "***************************'* 

500 FOR Y = N + 1 TO X STEP - 1:Z = Y - 1: GOSUB 550:' NEXT Y : N = N + 1 
: RETURN 

547 "***************************'* 

548 "* SWAP (PULL OR PUSH) *** 
£,49 " ***************************** 
550 FL$(Y) = FL$(Z) :FD$(Y) = FD$(Z) 
555 FT$(Y) = FT$(Z) :FK$(Y) = FK$(Z) 

560 FA$ ( Y ) = FA$ ( Z ) : RETURN 

59 y " ***************************** 

598 "* GET SCREENCONTENS CV/CH *" 

599 "***************************''' 
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600 
605 
610 
615 
64? 
648 
649 
650 
655 
697 
698 
699 

roo 

705 

710. 

997 

998 

999 

1000 

1010 

1020 

1030 

1040 

1050 

1080 

1090 

1100 

1997 

1998 

1999 

2000 

2010 

2020 

2030 

2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2497 
2498 
2499 
2500 
2510 

2520 
2530 

2540 
2550 
2560 
2570 
2997 
2998 
2999 
3000 
3010 



Cl = INT (CV / 8) :C2 = CV - Cl * 8 
C3 = 1024 + 128 * C2 ♦ 40 * Cl + CH 

P = PEEK <C3> - 128:PN = PEEK ( C3 + 1) 

RETURN 
•* ****************»***»»**##*•• 

"* INVENTUR Y 

FA$(X) = N$:FD$(X) = V$:FL$(X) = L$ 
FT$(X) = T$:FK$(X) = K$ : RETURN 

"* SHOW CATEGORIES *" 
•* ***************************** 

INVERSE : FOR X = 27 TO 34 

PRINT C$(X); 

NEXT X; PRINT ; NORMAL : RETURN 



- 128 




"* MAINCONTROL 1000-1100 ■*'* 

HOME :I$ = w " : GOSUB 120 
1=0: GOSUB 100 
FOR X = TO 3 

IF K$ = LEFT$ <C$(X),1) THEN I = X:X = 3: GOTO 1080 
NEXT X 

1$ = C$(25): GOSUB 120; GOTO 1010 
HOME :I$ = C$U):I = I + 1; GOSUB 140 
ON I GOSUB 2000,3000,4000,5000 
HOME : GOTO 1000 

"*. LIST CATEGORYCALLY . *" 

** ***************************** 

IF K$ = "A" THEN GOTO 2500 

IF K$ < > "C" THEN 9990 
I = 5:1$ = 1$ + C$(5) + C$<12): GOSUB 140 

IF K$ = "P" THEN PF = 1:1$ = 1$ + C$(6): GOSUB 120: PRINT D$;"PR#1 
": GOTO 2060 

IF K$ < > "C" THEN 9990 

1$ = 1$ + C$(7):I = 2: GOSUB 140 

FOR K = 27 TO 34: VTAB 3: HTAB 1:L = 

INVERSE : PRINT C$(K): NORMAL 

FOR X = TO N 

IF FK$(X) = LEFT$ (C$(K),1) THEN GOSUB 150 

IF L = 18 AND PF = THEN GOSUB 300 

NEXT X: GOSUB 300 

NEXT K: IF PF > 1 THEN PF = : PRINT D$;"PRt0" 

PRINT "THAT'S ALL !"; GOSUB 300: RETURN 

"* LIST ALPHABETHICALLY 

•• ****************** ********♦• 

I * 5:1$ = 1$ ♦ C$(4) + C$(12): GOSUB 140 

IF K$ = "P" THEN PF = 1:1$ = 1$ + C$(6): GOSUB i20: PRINT D$;"PR#1 
": GOTO 2540 

IF K$ < > "C" THEN GOTO 9990 
1$ = 1$ + C$(7):I = 2: GOSUB 140:L = 

FOR X = TO N 

GOSUB 150: IF L > =18 AND PF = THEN GOSUB 300 

NEXT X: IF PF = 1 THEN PF = : PRINT D$;"PR*0" 

GOTO 2130 
****************************** 

*** REPORT *" 

" ******************** *'*****'• 

HOME : INVERSE : PRINT " REPORT 

PRINT " M ;N + 1;" FILES ARE CONTAINING 
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3020 
3030 

3040 

3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 

3160 

3170 

3997 

3998 

3999 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110- 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 
4200 
4210 
4220 
4230 
4497 
4498 
4499 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 

4600 
4610 



NORMAL 

PRINT "CATEGORY";; HTAB 15: PRINT "#";: HTAB 25: PRINT "SEC";: HTAB 
32: PRINT "KBYTE" : PRINT : PRINT 

FOR K = 27 TO 34 

PRINT C$(K); 

FOR X = TO N 

IF FK$(X) < > LEFTS (C*(K),1) THEN GOTO 3100 
A = A + liSP = SP + VAL <FL$(X)) * .25 
SC = SC * VAL (FLS(X)) 

NEXT X 

HTAB 15: PRINT A; : HTAB 25: PRINT SC;: HTAB 32: PRINT SP 
AG = AG + A:SG = SG + SC:ST = ST + -SP 
A = 0:SC * 0:SP = 

NEXT K 

PRINT : PRINT "TOTAL";: HTAB 15: PRINT AG;: HTAB 25: PRINT SG; : HTAB 
32: PRINT ST 
AG = 0:SG = 0:ST- = 0: PRINT : PRINT 

GOTO 2130 

•• ********-»*****************" 

"* EDIT MANUAL DEL/ENTER *" 
•* **************************** 

IF K$ = "A" THEN GOTO 4500 

IF K$ = "S" THEN GOTO 4800 

IF K$ < > "M" THEN GOTO 9990 
1$ = 1$ + C*(Ö):I = 6: GOSUB 140 

IF K$ = "E" THEN GOTO 4140 

IF K$ < > "D" THEN GOTO 9990 
1$' = 1$ + C$(36): GOSUB 120 

PRINT : INPUT "ENTER FILENAME >";SU$ 

GOSUB 350: IF X > N THEN POP : 1$ = C$(37): GOTO 9995 
L = 0: GOSUB 150: IS = 1$ + FASCX) 
1=2: GOSUB 140 
- IF K$ < > CHR$ (13) THEN GOTO 9990 
1$ = C$(19) + " " + FA$(X): GOSUB 120 

GOSUB 450: GOSUB 200: RETURN 
1$ = 1$ * C$(35): GOSUB 120 

PRINT : INPUT "FILENAME >";N$ 
SU$ = N$: GOSUB 350: IF X < = N THEN 1$ = " ALREADY EXISTENT ! ": 
1=2: GOSUB 140: IF K$ < > CHR$ (13) THEN GOTO 9990 

VTAB 5: INPUT "DISK-VOL (XXX) ";V$: IF LEN (V$> < > 3 THEN GOTO 
4170 

IF LEN (L$) < > 3 THEN GOTO 4180 
IF LEN (TS) < > 1 THEN 4190 



INPUT "# OF SEK (XXX) ";L$ 

INPUT -"FILETYPE (X) ";T$ 
GOSUB 700 

INPUT "CATEGORY " ; K$ 



GOSUB 250: IF X = 35 THEN GOTO 4210 



IF LEN (K$) > 1 THEN GOTO 4210 

GOSUB 400: GOSUB 500: GOSUB 650: GOSUB 200: RETURN 

*• **************************** 

"* EDIT AUTOMATIC *" 

** ************»:#*** ******»**" 

PRINT : PRINT "INSERT NEW OR CHANGED DI SK- 
IS = 1$ + C$(9):I =2: GOSUB 140 

IF K$ < > CHR$ (13) THEN GOTO 9990 

HOME : PRINT D*;C$(13):B = PEEK (37) - 1: IF B > 23 THEN B = 23 
V$ = "" 
CV = 2; FOR CH = 12 TO 14: GOSUB 600 :V$ = V$ + CHR$ (P): NEXT CH 

VTAB 1: GOSUB 700: PRINT "TYPE LETTER TO TAKE OR RETURN TO LET" 

FOR CV = 4 TO B:K$ = "":L$ = "" :T$ = "":N$ = "":FF = 

VTAB 4: HTAB 1: PRINT C$ 

VTAB CV + 1 : HTAB 1: PRINT ">";: HTAB 39: GET K$ : IF K$ = CHR$ (1 
3) THEN GOTO 4700 

GOSUB 250: IF X = 35 THEN GOTO 4590 

IF FF = 1 THEN GOTO 4690 
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4620 
4630 
4640 
4650 
4660 
4670 
4680 

4690 
4700 
4710 
4720 
4730 
4797 
4798 
4799 
4800 
4805 
4810 
4815 
4820 
4825 
4830 

4835 
4840 
4845 
4850 
4855 
4860 
4865 
4870 
4875 
4880 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4997 
4998 
4999 
5000 
5010 

5020 
5030 

5040 
5050 
5060 

5070 

5080 
5090 

5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 



CHR$ ( P ) ; NEXT CH 



CH = 1; GOSUB 600 :T$ = CHR$ (P) 

FOR CH = 3 TO 5: GOSUB 600 :L$ = L$ 

FOR CH = 7 TO 39: GOSUB 600 

IF P = 32 AND PN = 32 THEN CH = 39: GOTO 4670 
N$ = N$ + CHR$ (P) 

NEXT CH 
SU$ = N$: GOSUB 350: IF X < = N AND FF = THEN 
"ALREADY EXISTENT! TYPE AGAIN OR RETURN"; FF = 1: 

GOSUB 400: GOSUB 500: GOSUB 650 

NEXT CV 

HOME :I = 2:1$ = "INSERT " * C$(20) + "-DISK ": 

IF K$ < > CHR$ (13) THEN GOTO 4 710 

HOME : PRINT "SAVING NEW ";C$(20): GOSUB 200: RUN 

*** SEARCH AND CHANGE *" 

I = 8:1$ = LEFT$ (C$(38),7) + " FOR 

IF K$ = "D" THEN GOTO 4900 

IF K$ < > "F" THEN GOTO 9990 
1$ = 1$ + C$(40): GOSUB 120 

INPUT "FILENAME >" ;SU$: GOSUB 

IF X < = N THEN L = 0: GOSUB 

PRINT C$(37): GOSUB 300 :L = 

1$ r "CHANGES ??":! = 2: GOSUB 



VT AB 4: HTAB 1: PRINT 
GOTO 4590 



GOSUB 140 



GOSUB 140 



IF K$ < > CHR$ (13) THEN GOTO 9990 

VT AB 10 

PRINT FA$(X) 



350 

150: GOTO 4835 
GOTO 4800 

140 



TO 
TO 
TO 
TO 

TO 



PRINT FD$(X) 

PRINT FL$(X) 

PRINT FT$(X) 

PRINT FK$(X) 
1$ = "CHANGING": GOSUB 

GOSUB 450; GOSUB 400: 
1$ = LEFT$ (I$,12> + 

INPUT M DISK- VOLUME >" 

FOR X = O TO N 



IF FD$(X) 
IF L = 18 
NEXT X 

GOSUB 300 



r V$ 

THEN 



THEN 
GOSUB 



INPUT N$ 
INPUT V$ 
INPUT L$ 
INPUT T$ 
INPUT K$ 
120 

GOSUB 500: GOSUB 650: GOSUB 200: 
" " + C$(39): GOSUB 120:L = 
;V$: IF LEN <V$) < > 3 THEN 4910 

GOSUB 150 

300:L = 




. 



RETURN 



RETURN 



"»»»»IT*******:******:!;*******" 

"* EXECUTE DOS *" 

HOME : PRINT D$;C$(13):B * PEEK (37) - 1:1$ = C$C3) 
VTAB 3: HTAB 1; PRINT "TYPE FIRST LETTER OF DOS-COMMAND" : I = 7: 
140 

X = 14:N$ = "":T$ = " 

IF K$ = LEFT$ (C$(X),i) THEN GOTO 5060 
X = X + 1: IF X > 19 THEN GOTO 9990 

GOTO 5030 

FOR CV = 4 TO B:CH = 4: GOSUB 600 

POKE C3 - 1, ASC. (">"): POKE C3.CV + 125: POKE C3 + 1, ASC i"<") 

NEXT CV 

1$ = C$(X): GOSUB 120: VTAB 3: HTAB 1: PRINT "TYPE LEfTER OF FILE 
OU WISH TO ";C$(X) 

HTAB 5: GET CV$:CV = ASC (CV$) - 61 

FOR CH = 7 TO 39 

GOSUB 600: IF- P = 32 AND PN = 32 THEN GOTO 5140 
N$ = N$ + CHR$ (P) 

NEXT CH 
CH = 1: GOSUB 600 :T$ = CHR$ (P) 

IF X = 14 AND T$ < > "T" THEN GOTO 5500 

IF X = 15 AND T$ < > "A" THEN GOTO 5500 



GOSUB 
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5180 IF X = 16 AND T$ < > "B" THEN GOTO 5500 

5190 IF X = 19 AND PEEK <C3 - 1 ) < > 160 THEN GOTO 5600 

5200 1$ = 1$ + N$:I * 2: GOSUB 140 

5210 IF K$ < > CHR$ (13) THEN GOTO 9990 

5220 PRINT D$;I$: GOTO 5000 

5500 HOME :I$ = C$(25): GOSUB 120: INVERSE 

5510 VTAB 15: HTAB 5: PRINT N$ ; " IS ";T$;"~TYP !! " 

5530 GOTO 5700 

5600 HOME :I$ = C$(25): INVERSE : VTAB 15: HTAB 5: PRINT "FILE IS STILL 

LOCKED ! ! ! " 

5700 FOR XZ = TO 5000: NEXT : NORMAL i GOTO 5000 

9987 **************************** " 

9988 "* FALSE COMMAND *" 

9989 *'**************************" 

9990 POP :I$ = C$(25) 
9995 GOSUB 120: GOTO 1010 

999 Y "**************************** 

9998 "* CONVERSAT ION -TABLE 

9999 " **************************" 

10000 DATA "L'IST "/'R'EPORT ","E'DIT "/*D'OS " 
10100 DATA "A'LPHABETHICALLY *' , "C ATEGORICALLY " 

10200 DATA "P'RINTER " , "C ONSOLE 'V'M'ANUAL " , "A'UTOMATIC " 

10300 DATA "Q'UIT ", "<RE TURN >' FOR ACT ION " 

10400 DATA "ON ", "CATALOG" , "EXEC "/'RUN " , "BRUN "/'LOCK "/'UNLOCK " 

, "DELETE " , "LIBRARY" , "OPEN" , "CLOSE" , "READ" , "WRITE" 
10500 DATA "FALSE COMMAND ! ", "SORTING !" 
10600 DATA "U'TILITY "/'L'ANGUAGE " , "M'ATHEMATIC " , "B'USINESS " t "G' 

AME " "E'LSE " "D'ATA ","T'EXT " 
10T00 DATA "E'NTER NEW FILE 'V'D'ELETE FILE " , "NON EXISTENT !"/*S'E 

ARCH+CHANGE " 
10800 DATA "D'ISK-VOL " , "F ' ILENAME+CHANGE " 
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Fight 



Fight 

Fight ist ein Spiel, gedacht für zwei 
Personen, wo Reaktionsschnelligkeit 
gefragt ist. Jeder der Spieler zeichnet 
eine Linie auf dem Bildschirm. Nun 
muß versucht werden seinen Gegen- 
spieler aus zumanövrieren, und zwar 
so, daß ihm der Platz immer enger 
bzw. kleiner gemacht wird. Lenkt ei- 
ner der Spieler gegen irgendeine be- 
reits gezeichnete Linie oder gegen die 
Wand ist das Spiel verloren. Ein Zei- 
chenspiel also, das bestimmt Spaß be- 
reiten wird. Um das ganze Spiel span- 
nender oder interessanter zu gestal- 
ten, kann die Geschwindigkeit zusätz- 
lich gesteigert werden. 




100 

110 

120 
130 
140 

150 

160 
170 

180 



LOMEM 
GX = 3 
FDR A 
READ 
DATA 
, 202 , 

data' 

237, 1 
A* = " 
EX = 

B: VX 
K* = " 



1 6400 
* 256 : TEXT ; HOME 
= 67. TD GX + 63 
B: POKE A,B: NEXT 
169,2» 133,7, 162,254, 



0. 



160,2,246,0, 183 
.136,208,240,72,24, 138, 105,4,168,182,0, 104 
160,0,32, 17,244, 177,38,37,48, 10,240,4, 165,7, 133, 
98 , 7 , 208 , 204 , 1 65 , 6 , 32 , 1 68 , 252 , 96 

< RETURN > TG PLAY <ESC> TD QU IT 
- 16384: FX = 128! HX = 8: IX = 0;LX = 83: SX = 255: J 
= 236: YX = 1 : ZX = 2: NN ( 1 > = 0: NN (2) = 
W":L* = "S":m* = "Z":n* = "X":o*' = ";":p* = "P":Q 



32,56,245,0,202, 149, 0,202 

,32,90,244, 162, 

: SPACE; TL) CHANGE SPEED" 
X = 253: WÄ - 23 



* = " . H :R* = "/ 



190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 



VTAB 2J HTAB 11: INVERSE 
PRINT "###################" 
HTAB 11: PRINT " 

HTAB 11! PRINT " FIGHT 
HTAB 11: PRINT " 
HTAB 11: PRINT 
PRINT " 

S PRINT " PLAYER 

: PRINT "UP 

DOWN S 



11 

VTAB 9: 
VTAB 12 
VTAB 18 
PRINT " 
PRINT "LEFT 
PRINT "RIGHT 
VTAB 16: HTAB 
TT = ASC (T*) 
POKE 6, (TT 



################### " : NORMAL 

COPYRIGHT BY ROBERT SUNA" 



l: 
w 



z 

X /" 

15: PRINT "SPEED (i-5) 
: IF TT < 49 OR TT > 53 
49) * 20 + l: PRINT T* 



PLAYER 
P" 



"; : GET T* 
THEN 310 



VTAB 



PRINT 



VTAB 14:. HTAB 13: PRINT NN ( 1 ) S : HTAB 36: PRINT NN(2> 



350 POKE 8,0: POKE 230,32: CALL 62450 

360 HCOLOR= 3 

370 HPLOT 0,0 TO 255,0: HPLOT 255,0 TO 255,191 

380 HPLOT 255,191 TO 0,191: HPLOT 0,191 TO*0,0 

390 VTAB 23: HTAB 1: PRINT LEFT* <A*,40); 

400 IF PEEK < - 16384) > 127 THEN 430 

410 FOR II = 1 TO 60: NEXT 

420 A* = NID* (A*,2> + LEFT* <A*,I): GOTO 390 

430 GET B*: IF B$ = CHR* (27) THEN 650 

440 IF B$ = CHR* (32) THEN 310 

450 POKE - 16304,0: POKE - 16302,0: POKE - 16297,0 
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460 


POKE SX,YX: 


POKE 


JX» IX: POKE 


WX,YX: POKE 


IC II 

vx,zx 




470 


POKE 254,10: POKE 252,10: POKE 237,245: POKE 235,181 




480 


IF PEEK (EX) < 


FX THEN CALL 6X5 IF PEEK <HX) = IX THEN 


480 


490 


IF PEEK <HX> > 


IX THEN 610 








500 


GET T*: IF 


ASC 


(T$> < LX THEN 560 






510 


IF T* b K* 


THEN 


POKE SX,YX5 


POKE JX,ZX: 


GOTO 480 




520 


IF T$ = L* 


THEN 


POKE SX,YX: 


POKE JX, IV.". 


GOTO 480 




530 


IF T* = M* 


THEN 


POKE sx«zx: 


POKE jx,yx: 


GOTO 480 




540 


IF T* = N* 


THEN 


POKE SX, IX: 


POKE JX, YX: 


GOTO 480 




550 


60T0 480 












560 


IF T* = P* 


THEN 


POKE WX,YX: 


POKE VX,ZX: 


GOTO 480 




570 


IF T* = 0$ 


THEN 


POKE .WX,YX: 


POKE VX, IV.: 


GOTO 480 




580 


IF T* = Q* 


THEN 


POKE wx,zx: 


POKE VX S *YX: 


GOTO 480 




590 


IF T* « R* 


THEN 


POKE WX, IX: 


POKE VXjYX: 


GOTO 480 




600 


GOTO 480 












610 


FOR A = TO 200. 


STEP 20: FOR B = TO A 


: NEXT : CALL - 


198: 


620 


GET T*: TEXT 










630 


SS = PEEK 


(HX):NN(SS) = NN (SS) + 1 






640 


BOTG 340 












650 


TEXT s HOME s NEW 









NEXT 
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MULTIGRAPH - Programmbe- 
schreibung 

Ein Grafikprogrammfür den VC-20 + 
SUPER EXPANDER VIC 12 IIA 
MULTIGRAPH ist ein Programm, mit 
dem man auf relativ einfache Weise 
eine hübsche Grafik erzeugen kann. 
Je nach Eingabe können Blumen, 
Sterne, abstrakte Schmetterlinge und 
viele viele andere phantasievolle Fi- 
guren auf dem Bildschrim entstehen. 
Und so funktioniert es: Zwei mehr 
oder weniger modulierte Sinus - 
Schwingungen werden aufeinander 
senkrecht stehend zur Überlagerung 
gebracht. Dabei werden je zwei be- 
nachbarte Punkte miteinander durch 
eine Gerade verbunden. Läßt man 
nun nur wenige Punkte berechnen, 
entstehen Zacken, bei mehr Punkten 
entstehen Rundungen. Ähnliche Fi- 
guren erhält man, wenn man einen 
Trichter frei pendeln läßt, aus dem ein 
feiner Sandstrahl auf eine Fläche rie- 
selt. Doch unser Programm macht es 
uns viel leichter. Nachdem das Pro- 
gramm gestartet wurde, wird durch 



Drücken der Taste (J) oder (N) kund- 
getan, ob man selbst Figuren creieren 
möchte oder das der Rechner tun soll. 
Wählt man ersteres kann man sich 
durch Betrachten der Figuren nun 
entspannen. Im zweiten Fall sind 
nacheinander einige Werte einzuge- 
ben, die man beliebig variieren kann. 
Allerdings muß folgendes beachtet 
werden. Die Anzahl der Schwingun- 
gen muß eine natürliche Zahl sein, die 
der Zeichenpunkte ebenfalls. Die 
Summe der Radien darf den max. Ra- 
dius nicht überschreiten und die An- 
zahl der einzelnen Schwingungen 
(SCHW.) sollte auch eine natürliche 
Zahl sein. PHI kann alle Werte zwi- 
schen -1 und +1 bekommen (andere 
haben die gleiche Wirkung) und das 
Frequenzverhältnis (F/F) sollte eine 
natürliche Zahl zwischen 1 und 10 
sein, damit es nicht zu kompliziert 
wird. 

'Sind alle Werte eingegeben, wird die 
Figur gezeichnet und bleibt solange 



auf dem Bildschirm bis eine Taste ge- 
drückt wird um neue Werte einzuge- 
ben. Es empfiehlt sich dabei zunächst 
einmal die Werte der Beispiele leicht 
verändert zu verwenden um die 
Funktion der Werte zu verstehen. 
Das Programm ist so geschrieben, daß 
auch andere Rechner mit Grafikfunk- 
tionen leicht verwendet werden kön- 
nen, dabei muß lediglich beachtet 
werden, daß der Ursprung (0,0) des 
Koordinatensystems in einer -Ecke 
des Bildschirms liegt und der RM 
Wert angepaßt wird. Wer die Mög- 
lichkeit hat, die Grafik über einen 
Drucker oder Plotter auszugeben soll- 
te unbedingt davon Gebrauch ma- 
chen. Auf Papier sieht alles besser aus 
als eine kurzlebige Bildschirmdarstel- 
lung. Dieses Programm verzichtet je- 
doch auf eine Druckausgabe, weil sie 
für jeden Drucker/Plotter anders aus- 
sehen würde. 

Trotzdem viel Vergnügen beim Aus- 
probieren des Programms! 
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1 REM 

2 REM ** MULTI GRAPH ** 

3 REM 

4 REM SIMULATION DER 2-DIMENSIGNALEN 

5 REM UEBERLAGERUNG VON KRE ISSCHW INGUNGEN 

6 REM 

7 REM COPYRIGHT <C) 1984 BY 
Q REM BERND BOLLMANN 

9 REM KIRCHSTR. 1 

10 REM 3325 LENGEDE 3 

11 REM TEL. < 05 174)- 1063 . 

12 REM 

13 P0KE36879,3:PRINT"a|' , s REM BILDSCHIRM UND SCHRIFTFARBE 

14 PRINT"a\\*0* MULTIGRAPH *0*////BY B.BOLLMANN 1984\\" 

15 : 

16 : 

17 REM VARIABLEN: 

18 : 

19 REM N = ANZAHL DER UEBERLAGERUNGEN 

20 REM PU = ANZAHL DER ZEICHENPUNKTE 

21 REM M = Z AEHLER FUER N 

22 REM T = ZAEHLER FUER PU 

23 REM ir = PI ~ 3,1415926.... 

24 RM=511 : REM RECHNERKONSTANTE 

25 REM RM = MAXIMALER RADIUS 

26 REM RS = RADIENSUMME 
2? REM 

28 REM SCHWINGUNGSP AR AMETER SP< 1 . .N, 1 . . 6 > : 
£9 REM 

30 REM SCHWINGUNGSPARAMETER SP< 1 . . N, 1 . . 6> s 

31 REM SP<M,1> = RADIUS VON KREIS M 

32 REM SP<M,2) - SCHWINGUNGEN VON KREIS M/PU 

34 REM SP<M,3) = PHASENVERSCHIEBUNG/* VON KREIS M 

35 REM SP<M,4> = FREQUENZVERHAELTNIS VON KREIS M 
3S REM SP(M,5> ■ PU PRO SCHWINGUNG VON KREIS M 

37 REM SP<M,6> = PHASENVERSCHIEBUNG VON KREIS M 

38 i 

39 5 

40 PR INT "SIMULATION DER UEBERLAGERUNG VON" 

4 1 PR INT: PR INTCHR*< 34 > "KRE ISSCHWINGUNGEWCHRS* 34 ) 

42 PR INT SPRINT"- EINE ERWEITERUNG DER" 

43 PRINT"3 LISSAJOUS - FIGUREN . ■" 

44 PR INT SPRINT "AUTOMATIK EINGABE ?" 

45 GETA*: IFA*< > U J J, ANDA*< >"N"THEN45 

46 IF A*-"J" THEN 90 

47 GOSUB50:GOSUB70:WAIT138, 1 JGETA* 

48 GRAPH I CS : CLR : RM=5 1 1 : G0T047 

49 : 

50 REM EINGABE DER PARAMETER 

51 PR I NT »MHE INGABE DER PARAMETER:" 

52 INPUT" SCHWINGUNGEN N : " ; N 

53 INPUT" ZEICHENPUNKTE : " ! PU 

54 DIM SPC N,6) 

55 FOR M=l TD N 
5S PRINTSPRINT 

57 PRINTM". KRE ISSCHW INGUNG: " 



VC- 20 



53 PRINT 

59 I NPUT "RADI US :";SPCM,i> 

60 I NPUT " SCHU1 . : " i SP< M , 2 > 
6 1 I NPUT" PH I s'^SPCM^) 
6 2 I NPUT " F/F : " ; SP< M , 4 ) 

63 SP* M,5>=PU/rf/£./SP< M,£> 

64 SP<M,6)*=SP< M,3)** 

65 NEXT M 

66 RETURN 

67 s 

68 X=0:Y=0 

78 REM KURVE ZEICHNEN 

71 GRAPH IC£ s REGION 1 : REM GRAPH IK -MODUS EINSCHALTEN 

72 REM KOORDINATEN SUMMIEREN: 

73 FOR M=l TO N 

74 X=X+SIN< 0/SP<M,5)>*SP<M, 1 )+SP(M,l> 

75 Y-Y+SINX SP< M,4)*0/SP<M,5)+SP<M,6> )*SP< M, 1 ) +SP< M,l ) 

76 NEXT M 

77 PGINTi,X,Y :REM ANFANGSPUNKT SETZEN 

78 FOR T=l TO PU 

73 X=0:Y-0 : REM KOORDINATEN LOESCHEN 

30 REM KOORDINATEN SUMMIEREN: 

8 1 FOR M-i TO N 

82 X = X+SIN-; T/SP< M,5) ) *SP< M, 1 ) +SP< M, 1 ) 

33 Y=Y+SIN< SP< M,4>*T/SP< M r 5>+SP< M,6>>*SP< M, 1 > +SP< M,l ) 

84 NEXT M 

85 DRAW1T0X,Y % REM MIT LETZTEM PUNKT VERBINDEN 

86 NEXT T 

87 RETURN 
38 : 

89 : 

90 REM AUTOMATIK 

3 1 N= I NT-: RND< 1 > #5 > + 1 : PU =N* I WTC RND< 1 > *SQ ) + 1 

92 DIM SP* N,6) 

93 FOR M=l TO N 

94 SP< M , 1 > = I WTC RND< 1 > *< RM-RS > ) : RS =RS +SP< M , 1 ) 
35 SP< M r E > = I NT< RND< 1 > * 10 > + 1 

96 SP< M,3>=RND< 1 >*£-l 

37 SP< M r 4 ) = I WTC RND< 1 > *5 ) + 1 
93 SP C M , 5 > =P U./ rf /£/SP< M , £ ) 

38 SP< M,6>=SP< M,3)*rf 
100 NEXT M 

16 1 GOSUB70 

103 GRAPH IC0:CLR:RM=51 1 s GGTOS0 

104 : 

105 : 

130 REM KONFIGURATION: 

131 REM VC-20 + SUPER EXPANDER VIC 121 1A 
13£ REM LAEN6E 2,5 KB 

READY. 
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d^' 



Sc^»** 



09M 



r.9 en 



\ t>* a 



n ' 



ien* 



„er 



h»« 



tr»i* 



Pa r^ ter - „cft- 1«»»" 9 



ef» 



\ 
3 
für» 



£00 

40 



i*f»l 



der 



.. t»e 



rechne 



V 

4 

terv 



phl 'BöB *« 


i 


* 50» ** 


\ 


; lt aae> *< 





fre^""; 0000 
1,0000 
^'.0000 



pu* 



vft e * 



. 50® 



Parameter der Schwingungen 1 bis n i 




n s Radius! 
1 487 



Sc h wingungenä 
Iß 



Ph i i 



.757 *rf 



Fr e q.u enzyerhaelin is 

1 S 2,0000 



Anzahl der berechneten Punkte i 6i 




par 



n * 



.-ter 



der 



Sc" fc 



hvJi 



r»9 l 



ex*»* 



n9 en 



1 toi* 



f« * 



„e 



r \n»e 



l*n** 



+ 



pre- 



^ eri V.0ß 00 



^00 ** 



** d - 5 00 



ftn*** 1 



de*" 



t»e 



,ec^ e 



\* 



+ ef 



pu 



n«* e 



. 40 



Parameter der Schwingungen 1 b is n : 




n« 


Rad ius i 


Sc hu ingungen i 


Phi i 


1 


268 


10 


.580 *d 


2 


£37 


6 


.50© ** 



Frequenzverhaeltn i & : 
1 : 1.000S 

1 : 2.0000 



Anzahl der berechneten Punkte : 250 
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All Rammer 



All Rammer 

Ziel des Spiels ist es, 1 5 Raketensatel- 
liten zu entschärfen. Sie müssen ver- 
suchen, Ihr Raumschiff so zu steuern, 
daß es weder eine Raumstation noch 
einen der eigenen Container rammt. 
Für jeden entschärften Satelliten wird 
ein weiterer Container angehängt. 
Berührt das Raumschiff die Atmo- 
sphäre (Bildschirmrand), so bleibt, die 
Raumkolonne zwar stehen, aber die 
Zeit läuft weiter, und je länger man 
braucht, desto niedriger ist der Score. 
Das Programm besteht aus 2 Teilen, 



einem Hauptprogramm und einem 
Vorprogramm, in dem die Zeichen 
neu definiert werden und die Anlei- 
tung enthalten ist. Nach der Eingabe 
des Vorprogramms „saven" Sie die- 
ses auf Band oder Diskette und geben 
dann das Hauptprogramm ein. wel- 
ches dann ebenfalls auf dem jeweili- 
gen Datenträger abgespeichert wird. 
Gesteuert wird über die Tastatur 

,>T«. 

»F«. 

»V«. Viel Spaß! 



3 G0SUE38 

5 FORI =716810767:? : POKEI t PEEKX I+23S@@> 

1 Q P0KE5 1 > Ö : PQKE52 , 28 : P0KE55 .- 8 : PQKE3S 

RERDFl:iFfl=-iTHEN195 

FÖRN=0TÜ7 : REflDB : P0KECB+fl*8+H, B ; HEX 

GOTO 15 

PÜKE3687y,8 



meüt 

23:CLR;CB»?168 



15 
20 
25 
38 

48 
45 
5Ö 
55 
66 
65 
78 
75 
80 
85 
90 
35 

109 

195 

110 

115 
125 
138 
15ö 
155 
160 
162 
165 
175 
160 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 






PRI NT 
PRIHT' 
PRINT"2KT»*Mi ÜÜI IM 






PRIHT" «*••*! 
PRINT ,, BSi>»ill *il 

PRiNT-sraiin m ni »i 

FGRI=1TÜ5 

PRI NT " mmtPIttHRRNMER* " 

NEXTI 

PR I NT " MMiMMDRUECKE " P 

GETR*'- IFfl*0 ,, P ,, THEN85 

FGKE36873,26 

PRINT'^SK RLL - RflMMER 
PRI NT":!» VERSUCHEN SIE MGEG- 
PR I NT " ENTSCHRERFEN . RRMMEN 
PRI NT" ODER EINE RAUMSTATION 
PRI NT". BLEIBT IHR SCHIFF 




Kr 



LICHST 
SIE RBER 
RAMMEN SIE DIE 
STEHEN ES GIBT 



SCHNELL 15 
NICHT IHRE 



flTMOS- 
JE- 



ATGMSflTELITTEN ZU 
EIGENEN CONTAINER ' 
PHARE SO 
DOCH STRflFSEKUNDEN, ' 



PRIHT" JSSOMPIKIRUECKE -'P-'IM»»! 1 

GETfl$: IFfl*O"P"THEN130 

P0KE36879.-25 

PRINT"3" :PRINT"MÄ«" 

PRIHT" »MMLENKUNGS" 

PRINT"W»M*MSUEBER Bli 

PRINT"WMM TÄMF-KjäMN' 

PR I NT " ÄSaWUm WDRUECKE ' P 

GETfl*-: IFfl*0"P"THEN 180 

PR I NT " K»i»»ftliS& I TTE WARTEN*" 

RETURH 

P0KE36869.-255 

P0KE36879,25 

pr i ht " zgnwpniiäM*- i w rrumsch i ff 



KIRSTEN = H' 



PRINT ,, ÄW>iKBHÖ»^ 
PRINT'^lsWEClMSÄ*- 

ppjNr'KpmTOK»*- 

PRINr'^WEFMS**- 



EIN CGNTRIHERB" 
EIN-RTÜMSflTELITT! 
EINE RÄUMST AI ICH! 
DIE ATMOSPHÄRE«« 11 



PRI NT "MW 



ÖBDRUECKE -'P-'H' 
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235 GETR$ : I Ffl*<> " P " THEN235 

250 PRINT"nÄWWH BITTE WARTEN TEIL 2 WIRD GELADEN» 1 

275 POKE36863>240 : FGKE631i 131 : P0KE153; 1 : EHE 

1 Ö00 DRTR0 , 1 64 , 85 , 1 7 1 , 1 96 , 60 .• 1 2b .. i 26 , 60 

1 065 Hfl TR 1 , 24 , 36 .« 30 , 165,1 65 , 39 , 36 , 24 

1810 BRTR2,24, 126, 126,231,231, 126, 126,24 

1015 BRTR3,255, 123, 133, 165,. 183, 165, 123,255 

1 028 DRTR4 1 i 23 , 60 , 1 62 , 3Ö , 30 ■ 1 02 , 60 , 1 23 

1025 DRTR5, 137,60, 170,29, 181, 106, 126,255 

1 030 DRTR6 , 66 , 1 65 , 38 , 60 , 68 , 30 , 1 65 , 66 , - i 

REflliV. 



11 
12 
15 
17 
13 
20 
22 
24 
26 
23 
23 
30 



5 D I MS C20 ;• : P0KE658 , 1 28 : H I =0 : SC-0 

6 V 1 =36878 = ','2=36875 = V3~ 1 5 : V4-0 : V4-3687' 
8 P0KE36863,255 

10 PQKE36873, 3 : PRIHT"^' ; SPCC22Ö) ; " 
INPUT"ä LEVEL U~3>";flK 
I FflX< 1 GRfHK>3THENGGTG 1 8 
E=0 : S <. 1 > = i /, 703 : S ( 2 ) ~7794 
C 1 *= " FFFFFFFFFFF FFFFFFFFFFF " 
C2*="F F" 

PRIHT 

PRIHT"a PRESS 'S" FÜR START H" 
GETR4- = I Ffl*<> " 3 " THEN24 
PRIHT":J";C1$, 

FOR I = 1 TO 1 3 : PR I HTC2* > ■ NEXT : PR I NT C 1 * ; 
FOR1=38400TO38305 : POKEI , 1 : HEXT 
POKES C 1 > , 2 ■ FOKES i 2 ) , 1 : R=3 : B=*7 
FORI-1TG15:GÜTO40 
F0RJ=1T0CR^*15;< 
NS= I NT < RHU i 1 ') *4 1 5 > + 1 +7705 ■ 
I FPEEK < HS ) O32THEN40 
POKEHS, R : POKEHS+30720, B : HEXT 
IFfl«3THENR*4 : E=5 : G0T036 
Z=0 = N*2 

Z=Z+1 :GETfl$: IFR$=""THEN107 

B*=R$ : OQTQ110 

FÜRH=1 TOS : HEXT 

GOSUB30Ö 

I FB*= " V " THEHC=+22 : GOTO 1 40 

I FB$= " T " THENC=-22 : GOTO 1 40 

IFB*»"G"THENC=+1 : GOTO 140 

IFB** n F"THENC=-l: GOTO 140 

GOTO 100 

L=S < V) ■ I FPEEK < S < H ::■ +C > "6THEN 1 60 

GOSUB300 

I FPEEK < S < H j> +C > =4THEH50Ö 

I FPEEK ( S ( H ■> +C > »2THEN300 

I FPEEK ( S C N ::- +C > =3T HEHE= 1 : POKES C h 






SnUHLL-RHliriERÜR 



3 b 
48 
5Ö 
55 
60 
70 

100 

105 

107 

108 

110 

111- 

112 

113 

126 

146 

141 

145 

150 

155 

XTI 

156 

157 

166 

170 

175 

180 

130 

21Ö 

220 

225 

230 




> +C+30726 .f 1 : P0KEV1 , V3 -F0RI=3T0255 : P0KEV2, I ■ HE 



P0KEV1 .. 6 = PÜKEV2, 8 = GOTO 160 

I FPEEK < S ( N ::■ +C > 032THEN 1 00 

FOR 1 = 1 TON- 1 

S<0=S<I + 1?:NEXT 

S(I)=S(I)+C ; POKES ( I - 1 > , 2 • POKES ( I 

FORG=1TO50=NEXT 

PÖKEL, 32 

IFEO1THEH100 

H=H+ 1 = 3 < > =L : POKES ( 1 ') , 2 

1FNM6THEN40Ö 

F0RI=H-1T09STEP-1 
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240 
250 
390 
31© 
3U 
320 
330 
400 
450 
500 
510 
511 
529 
530 

900 

305 
310 

1000 
1005 
1007 
1010 

1615 

1028 

i 936 
1840 

1050 

i960 
107« 



8 < 1 +5~4 )=S(1) ; HEXT - E=0 : GOTÜ 100 

I FNV$= " J " T HENB** " " : GOTO 1 8 

FÜR I=HT01 STEP- 1 

POKES < I > .- 9 : POKES < I ) +30 f'20 .■ 2 

P0KEV1 , 12 = FGRK=128TG255STEP2 = P0KEV4, K = HEXTK : P0K.EV1 ■■ 6 : P0KEV4 

FORZ=1TO1800 : HEXT = NEXT 

C*=" CONTAINER GERAMMT i " : GOTO 1000 

C** M GESCHAFFT! ! ! ! " 

GOTO 1600 

F0RI=NT01STEP-1 

POKES (. I "> 1 5 " POKES < I > +30720 .< 2 

P0KEV1 ; 15 : F0RV=255T0128STEP~2 : P0KEV2, V 

FORZ* 1 T088S ; HEXT : HEXT 

C** 8 " RÄUMST AT I OH GERAMMT ! " = GOTO 1 Ö09 

REM 

pr i nt " mmMmmmmmtmim****:. ■ u ; n-2 ; 

RETURN 

SO<N*100-Z:>*2 ; IFSC=:>0THENSC=0 
PRINT ,, nM»WMWÖGflME OVER" 

pRiHT ,, ÄKWwiak ,, ;c*; ,, H" 

PR I HT " HMÖSfiECQRE : ■" ; SC 

IFSC>=HITHENHI=SC 

PR I HT " MMSKSH I -SCORE : ■" .: H I 

PR I NT = FR I NT "JfflMlÖSNOCH E I NMFiL i J/N > 1" 

■GETHV* • IFNV$= H N"THEN1070 

I FNV*= " J " THENB*= " " : GOTO 6 

GUTO1040 

FRIHT"3ilKffiDSiasiSCHRDE! !Bi" =END 



■■IEXTV:PÜKEVl,y;pOKE'v 



afcZEIT:"»' 
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Startup 
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Startup 

Ein Hiljsprogramm, programmiert 
auf den Atari 400 

Startup kann jedoch leicht auf die XL- 
Modelle funktionsfähig gemacht wer- 
den. Also ausprobieren, und wenn • es 
nicht klappen sollte, die Redaktion 
anrufen! {Gilt auch für „Zeilen- 
Split".) 

Dieses Programm bietet alle Pro- 
gramme, die mit „BAS" enden in ei- 
nem Menne an und lädt bzw. startet 
seinerseits nach Angabe einer Zahl 
ein gewünschtes Programm. 
Zur Verdeutlichung dieses etwas 
„verwirrenden" Vorgangs hier ein 
kurzes Ablaufdiagramm: 



Diskette . 


Booten 


Computer 






. _ 




(Urfaden) 




START 




lädt Start 










! START 


bietet Name an 






1 . Name 1 

2. Name 2 

3. Name 3 






Eingabe einer 






Zahl, z. B. 3 






Prog.-Nr. 3 wird 

geladen 

und gestartet 


Prog.-Nr. 3 










Prog. Nr. 3 

läuft 



Das Programm AUTORUN. SYS ist ein Ma- 
schinenprogramm und wird von dem 
Programm AUTORUN.GEN auf Dis- 
kette geschrieben, von wo es dann im- 
mer beim Einschalten des Computers 
aktiviert wird. AUTORUN. GEN (Ge- 
nerator) wird also nur einmal akti- 
viert, um das Maschinenprogramm in 
abläuffähiger Form auf Diskette zu 
schreiben. 

Mit dem AUTORUN. SYS kann man 
übrigens auch andere Programme au- 
tomatisch starten, vorausgesetzt, sie 
tragen den Namen „START". 
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10 
20 
30 
40 

5fl 
60 

100 
11.0 

120 
130 
140 
150 
160 
1.70 



OPEH #i 
TRRP 60 
READ fl 
PUT #i,fl 
HOTn 30 
END 

DATO 25 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 



8,0, "D'flUTORUN.SYS' 



255, 106, 6, 255. 6 . 169 
169,5, • 



89.. 141,0,3, 
3-169 , 64, 141,3, 3 .- 169 , 5 , 1.41 , 6 , 3 ■ 1.41. , 
9,3,141,10,3,141,11, 3 , 1 69 , 1 2 , 1 41 , 8, 
11 . 1 89 , , 5 , 1 57 . 8 .. 3 , 202 ,16, 247 , 32 , 89 



169,1,141,1,3 
5,3, 169,0, 141 
3,32.. 39,228, 16.» 1, 
,228,48,6,32,6,5, 



169.63, 141 

4,3,141 
96,162 
108,12 



. 96 . 169 ■ 1 93 • 141 , 33 1 3 , 169, 6 , 141 , 34 , 3, 96 , 251 , 243 ,51. , 246 , 287 , 6, 163 
24 6 • 5 1 , 246 , 60 , 246 , 76 , 223 , 2 43 , 1 72 , 255 , 6 , 240 , 9 , 1. 85 , 234 , 6 , 206 , 255 , 6 . 
1 , 96 .140 .. 33 .. 3 .. 1 69 .. 228 .. 1 4 1 .. 34 .. 3 .. 1 69 ■ 1 55 .• 1 60 .• 1 .- 96 , 34 , 84 .. 82 .- 65 , 84 
83 , 58 . 68 ■ 34 .■ 32 , 78 , 85 , 82 , 32 , 32 , 32 , 32 , 32 , 32 , 32 . 20 , 226 , 2 , 227 , 2 



160 



1 80 DRTR . 1 06 .. 6 , 224 .. 2 .. 225 , 2 , 1 80 , 6 



10 

20 

30 

40 

50 
60 
70 

90 

100 

110 

120 
130 
140 
150 
160 
i?& 
1R0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
2^0 

300 

310 
320 
330 
34Ö 



RPH 
RPH 
RFM 
REM 
REM 
DIM 



STRRTUP 

VON RONALD REYER 

12/83 

m<. 20 ) 



FOR ATARI 400 600 800 



8, 13 



BAS" TUEN N»N+1 '? #6; 
POSITION 20 ..0: POKE 82 

DUP.SY8" 



OPFH #1,6,0 
GRAPHICS 
POKE 703,4 
SFTCQLOR 3,ft 
SETCOLOR 0,6 
TRAP 140 
PüK'E 752,1 
INPUT #1,R$ 

R*=»RIK 3 ) 

IF R*C 9,11 :>== 

IF N~10 THEN 

GOTO 90 

? #6.:N+1 

CLOSE #1 

POKE 752,0 

PQKE 82,2 

"<• " WELCHE NUMMER 

INPUT R 

IF R<1 OR R>N+1 THEN 

IF fl«N+l THEN DOS ■ 

OPEN #1,6,0, "0 ■•*..*" 

REM LADEN DES PROGRAMMES 

FOR J*l TO R 

INPUT #1,R* 

IF RiCH, 13>-"BRS" THEN HEXT 

OTTO 250 

R*a,2)~"D= M 

A*=A*<1,13) 
R*ai,ll >="." 

RSa2,!4>*"8RS" 
IF R*C10-P,10-P 

m<. h-p:j=r*c 11 ::• 

RUH R* 



20 



A*C1..8) = ? #6 




$& 

V* 8 » 
$>*•« 



188 



COMING SOON 



Now Activision takes a new directiort, bringing relentless action, 



River Raid. The mission: pHol your jet ovar the river whlle blowirtg 
up.bridges that carry- the enemy to the other side. Commänd the 
skies, bfasting battalionafterbattalion of Jets and choppers. Raid the 
river, destroying tankers, and bomb the hot air balloons that frac* 
ypu down in the dlstance. Then re-fuel at scattered depots along Wie 
pathway. Think fast and follow your instirwts. Weave down the rtar-,. 
rowlng Channel with every ounce of stamina in you. River Raid,'* 
from Activision, the greatest, battle adventure of all time, now 
for Atari» hörne Computers. Designed and adapted by Carol Shaw 
to challenge you every step of the wäy. Can'you 

makeit? 



J'GGTO 280 



THEN P-P+l !T,OTO 320 



AdlVisioN 



Just one of the ränge of Software for 
your Atari Computer with prices from 
£8.50. We operatea rental library too, 
WE PUT YOU IN THE GAME. s o why not send a n SAE for detail s or 
better still 50p for our new magazinecatalogue. Füll ränge' of 
Software for Spectrum, Commodore, Vic-20, Dragon, etc. 

VIDEO GAMES CENTRE 
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Chopper-Fight 

für Atari 600/800 XL 
Chopper-Fight ist ein schnelles Ae~ 
tionspiel für alle Atari -Fans. Es belegt 
ca. 11K RAM und wird über Joystick 
gesteuert. 

Computronic 



Chopper Fight 



Die Aufgabe im Spiel besteht darin, 
eine Basis, aufgebaut von Angreifer 
aus dem fernen All, zu vernichten. 
Dafür stehen jedem Spieler drei Ver- 



suche bzw. drei Raumschiffe zur Ver- 
fügung. Um die Basis 2u erreichen, 
müssen ausgelegte Lichtbarrieren 
überwunden werden. Mit gezielten 
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Schüssen können die Barrieren an ih- 
ren dicksten Stellen jedoch aufgebro- 
chen und überwunden werden. 
Schaffen Sie es nicht, den vorgegebe- 
nen Weg zu erreichen oder die dickste 
Stelle einer Barriere ist nicht zu fin- 
den, dann drücken Sie den Steuer- 
knüppel nach vorn. Mit einem Hyper- 
sprung, gekennzeichnet durch Ton- 
untermalung und Farbveränderung, 
können Sie die Lichtfallen doch noch 
überwinden. 

Achten Sie außerdem auf Ihren Ener- 
gievorrat. Der verringert sich nämlich 
mit zunehmender Spieldauer und 
kann das Spiel ebenfalls vorzeitig 



beenden. Darum haben Sie Gelegen- 
heit, unterwegs auch aufzutanken. 
Links und rechts der zu durchkreu- 
zenden Bahn sind kleine Tanks mit 
Energievorrat ausgelegt (F). Wird ei- 
ner getroffen, hat Ihr Raumschiff vor- 
erst genug Energie, einen Teil des We- 
ges zurückzulegen. Zusätzlich kom- 
men Sie in die Wertung und erhalten 
pro Treffer 150 Punkte gutgeschrie- 
ben. Das Durchschießen einer Licht- 
barriere bringt 'übrigens für jede ent- 
standene Lücke 50 Punkte extra. 
Sollten Sie es schaffen, die feindliche 
Basis zu erreichen, müssen alle vier 
Reaktoren vernichtet werden. Dafür 



gibt es dann 5000 Punkte. 
Nach dem Erreichen des Zieles, also 
Vernichtung der Basis und der vier 
Reaktoren, erhöht sich selbstver- 
ständlich auch der Schwierigkeits- 
grad. Der macht sich bei Chopper- 
Fight in der gesteigerten Geschwin- 
digkeit des zu steuernden Raumschif- 
fes bemerkbar. 

Folgende Graphikzeichen aus dem 
Programm möchten wir noch erklä- 
ren bzw. aufzeigen, wie sie erreicht 
werden: 



D = ESC CTRL D = 
Lj = ESC SHIFT INSERT 



ESC SHIFT CLAER 



5 REM <c> 1984 CHQPPER-FLIGHT 

(=. REM BY RICHARD KflEFER 

7 REM GGETZENTURMSTRflSSE 37 

1 ö POKE 1 96 , PEEKC 1 06 )-5 : GRAPH I CS 8 = GOSUB 1 7 1 = SETCOLOR 2,0..© = POKE 755 , 224 ■ SETCOL 

OP 0.8.. 12 

20 Di =PFEK( 560 >+25S*PEEK< 561 V : POKE DL + 1 • 7 : POKE DL+1 1 > 6 

30 POS I T I ON 3 ■ 5 • ? " C HnpPER-FL I GHT ' ' = POS IT T ON 7 , 7 ; ? " < c ) 1 384 bs R I CHRRD KflEFER " 

4Ci c;T=< PEEKC 106 >+ 1 )#256 : FOR f''iOV~0 TO" 1.023 = POKE 3T+M0V, PEEKX 57344+MOV ) = HEXT MOV 

50 HH=10 = SH=3 = SC=»0 = Tf'1=0 

f.tt GRAPHICS 0: GOSUB 1710 = SETCOLOR 2, 0,0: POKE 755 .,224 

70 pns T T J m 13.10 = ? " CHO PPER -FL I GHT " = POS I T I ON 1 2 ,12 = ? ' ' bu R I CHRRD KflEFER " > POS I T I 

OH 14,14^ "DRUECKE START" 

90 IF PEEKX 53279 >~6 THEN GOTO 110 

100 GOTO 90 

1.10 fl*19=B*23=HT=0 

120 IF SH<1 THEN GOTO 1680 



130 GRAPHICS 0' GOSUB 1710 ■ SETCOLOR 2,0,0= POKE 



224 



140 RESTORE = POKE 32,0 

150 FOR MQV«0 TO 7 •■ READ RH ' POKE 80+ST+MOV, RA •■ HEXT MOV 

1 M DATA 24 , 24 , 60 , 1 02 ,219,1 26 , 60 , 24 

170 FOR MOV=0 TO 7= READ AR ! POKE 96+ST+MOV, RA : NEXT MOV 

180 DATA 145, 145, 145, 145, 145, 145, 145, 145 

190 FOR MOV«0 TO 7 ■ READ RR -POKE 1S4+ST+M0V. RR : NEXT MOV 

9m DRTR 60 .. 1 26 , 1 95 > 207 , 1 95 , 207 , 207 ,126 

210 FOR MOV=0 TO 7 = READ RR 'POKE 1 12+ST+MOV, RA ■■ NEXT MOV 

220 DAT A 1 70 , 0,0,17 , ,0,170 , 

230 FOR M0V*0 TO 7 ! READ RR «POKE 120+ST+MOV, RR: NEXT MOV 

240 DATA 85-85,85.85.85,85,85,85 

250 FOR MOV=0 TO 7 ■ READ RR ■ POKE 72+ST+MOV, RA' NEXT MOV 

360 DATA 231,231,231,231,231,231,231,231 

270 FOR MOV«0 TO 7 ■■ READ RR ' POKE 64+ST+MOV, RR •■ HEXT MOV 

?.m DRTR 60 , 1 26 , 255 , 255 , 255 , 255 , 1 26 , 66 

290 FOR MOV«0 TO 7 = READ RR ■ POKE 672+ST+MOV, RA = NEXT MOV 

300 DATA 0,0,60,126,126,60,0,0 

310 FOR MÖV*0 TO 7 'READ AA'POKE 56+8T+M0V.. RPh NEXT MOV 

320 DATA 67 , 34 , 2 1 , 89 , 1 57 , 232 , 1 1 1 , 67 

330 FOR MOV«0 TO 7 • READ RR = POKE 48+ST+M0V,RA= HEXT MOV 

340 DRT A 1 70 , 1 70 , 255 , 255 ,255 , 255 , 1 70 , 1 70 

350 POKE 756, ST/256 

360 POS I T I ON 15,10 = ? " RERDV !": FOR Z~ 1 T0 3 1 

370 PFAD AR = READ BB=F0R ZZ=15 TO STEP »2 

375 ROUND , AA , 1 , ZZ = SOUND 1 , AR+ 1 , 1 , ZZ ■• SOUND 1 , 8B , 1 , ZZ = SOUND 1 , BB , 1 , ZZ ' NEXT Z 

Z 

380 DATA 1.08, &, 1 08 , , 53, , 53 , 8, 1 08, 0, 108, 8 , 53 , 6 , 53, 0, 121 , 9, 121 , , 1 14 , 0,114,0, 108 

. S . 1 08 ■ , 58 , , 53, 0, 108 , 217 , 108, 

390 DATA 53 , 2 1 7 > 53 , , 1 08,217,1 08 , % , 53 , ?. 1 7 , 53 , ,121 , 248 ,121, 243 , 1 1 4 , 1 44 , 96 , 1 93 , 1 

8.21.7,108,217.53,108 




400 NEXT Z= POSITION 15,10'? 
41.0 POSITION 0,0:? SH;"^*--' 



SOUND . , 0.0' SOUND 1 , , 0,0 = SOUND 2 ,0.0,0 
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426 IF SECOi THEN GOTO 460 

430 IF SEOl THEN COLOR 46 = PL0T 0,1'DRflUITn ?,p. . \ ■. r:\ii r\& 41 

435 PLOT 5, 1^ PLOT 10,1 'PLOT 15,1= PLOT 20,1= PLOT 25-1= PI DT 30-1 'PI DT 9,5.1 

44« FOR ZZ«2 TO 10 < COLOR 47 'PLOT 6, ZZ : r ; .pfl[,.iTTi 2R . 27 ^ NEXT " ZZ ""' """■ " ' 

450 COLOR 38= PLOT 5, 4' PLOT 15, 4 'PLOT 25, 4 = PÜTT 30, 4= COLOR 45 'PLOT , 1 1 = DRRUTO 38 

4f"0 POSTTIÖN 15,0:? "FUEL" =CÖLOR 44 ' PLOT 1 9 , •■ ORRUTO ^,^11«^ 

470 DRTfl 15,24, 15,24,15,24, 15,24,15,24, 15,24. 15.24. 15-24. 15-24. 15.24. 15 .24 . IS , ?4 

.15.24.15.24,15,24,16,23,17,22 

480 DRTfl 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 17, 22, 5, 33 , 5, 33, 5, 33, 5, 33 . 5 . 33 , 5 . 33 . 5 . 2.3 , 

5 .1 33 , 5 , 33 - 5 , 33 > 5 . 33 . 5 . 33 . 5 . 33 

490 .DRTfl 10 , 23, 15, 23, 15 , 23, 1 5 , 23 ,15. 23 .15. 33 . ] Fi . 23 . 15 . 23 . 1 5 , £3 , 15 . 33 , 15 . *3 . 1 S . ?4 

.15.24.15,24,15,24,15,24,15,24 

50« DRTR 1 6 , 25 ,17, 26 ,18,27,19, 28 , 2h , £9 , ? 1 . 30 . 2? . 3 1 . 23 , 32 . 24 . 33 , 25 . 34 . 26 , 35 . 37 . 3g 

• 23 , 37 , 28 , 37 , 28 , 37 , 28 , 37 , 28 , 37 ' " " 

510 DRTR 28 , 37 , 28 , 37,. 28 , 37, 28, 37, 28 , 37 . 28 . 37 . 5 ■ 37 . 5 , 37 . 5 . 37 . 5 . 37 . 5 , 37 . 5 . 37, 5 , 37 . 
5.37,5,37,5,37,5.37,5,37,5,37 '" " ' " 

520 DRTR 5.-37,5, 37, 5, 37, 5, 37, 5, 37, 5, 37, 5. 37, 5, 37. 5, 30. «=1.30.5.30. 5. 30, 5. 30. 5. 30. 5 

■ 30 , 5 . 25 . 5, 25 , 5 , 25, 5, 25, 5 , 25 ----- -._._. _ . -..,.. 

539 DRTfl 5, 25, 5 , 20 , 5, 20, 5 , 20, 5 , 20 . PI . 1 5 . 5 , 1 5 . 5 . 1 5 . Fi . 15 . 5 . 1 "S . S ,1 5 . «i ,1 S , 5 1 er . **, 1 «; h 

• 15, 5, 15, 5, 15. 6, IS, 7, 17,8, 18 -■-■-- ^-- -- i- .-. i- .-•, 1-.,-., l-,,,, . 

540 DRTfl 9. 19. 10,20, 11,21, 12,22, 13.23, 14,24, 15 ,25 . \f, , ?f, . 17 . 27. 18 . ?R , 19 . >=. . 3W , 3fi , 
21 ■ 3 J . 22 , 32 . 23.. 33, 24, 34, 25 , 35 " " _-..--.*_ 

550 DATA 2S,36;27,37,28'.58^28,38,28,38..?3,3fl,2R.38 1 28.3R,28.3fl.33.3ft 1 9ft t op -,p op 
, 28, 88, 28, 38 , 1 , 1 , 1 , 1 . 28 - 3R . 28 . 3,3 " " " " " ' " ""'" , "' ""'"''' '"'"' 

a"S T ? S !| 3 J^4 3 I^i 3 I^f' 15,37. 15.37, 15 , 37 , 15 , 30 , 1S , M , 15,30, 15,30, 15,30 

"isi^!^ 1 ^!^!^ 4 ' 15 ' 24 ' 1S ' Z ' 4 ' 15 ' 24 ' 1S ' 24 ' 15 ' 24 ' 15 " 24 ' 15 ' 24 ' 15 ' 24 

=I9@ Dflitfi 3,24,3,24,3,S4,3,24,3,24,3.24.3,?4,'--i.?4. 3 .?4.S.?4,r- i .24,'- l .r J 4, 3 .94, 3 , ?4 o 

• <±4 . 3, 24, 3, 24, 3, 24, 3, 24 . 3 . ?4 . 3 , 24 " " ' " " ' ' '" ' " '" c *' "' 

S8SSI:f?:I:!3:l:?S'.g:J3:l:^:?i!3;?ji?^}3:ii»' 3 '»' 3 '»^'»"»'" 

^^?%^V^ Z \k% Z V¥ A ' "'™ As >™' 15 ' 24 < » = '*' «'«' IS'*, 15,28, 15 

a^Tk!^!;^:!^: 3 2 / 21 : ' ' ■ 22 ■ 10 • 23 • 3 - ™> *> *&.?. *&*.**> ™. 4, 29 , 3 , m, 

640 DRTR 0,37,0,88,0.38 

£50 COLOR 42= PLOT R.B 

660 IF YY*0 THEN POKE 1 12+ST..0 'POKE 112+ST+fi.A 

«70 IF YY*1 THEN POKE 112+8T,255 = P0kF 1 ! 2+ST +fi . 35*i 

«80 YY=YY+MF VY>1 THEN YY=0 

690 CÖLDP 32: PLOT 11,0=11*11-0.15 

700 IF IK19 THEN GOTO 1310 

E 1 4S+It+7 C r4 THEW IF TVK0 THEN P0KE 48+8T ' 85!p °KE 46+ST+ 1,85= POKE 48+ST+6,85>P0K 

SnSr^rflr'i TS N IF TVal THEM P0KE 43+ST. 170 -POKE 48+ST+l , 170 = POKE 46+ST+6. 17«' 
r I IKr 4d+-3 I +r , 1 j"0 

730 IF SEOl THEN TY=TY+i ■■ IF TYM THEN TY-m 

?4Q IF 3Ei>l THEN TM=TM+1 = IF TM>500 THEN TN^i = 8Ff:=Pi = QI7T1 HR 

750 IF SEC*1 THEN GOTO 820 " '"" " " ' 

760 POSITION 19,lr?-iT=L0CRTE fl,B, C = COi np 4? ; p|jiT r.b 

770 READ RR: READ BB = COLOR 47 = PL0T 9 , 1 = DPflUTO RR,1=PL0T BB . 1 ■■ DPRWTn 38.1 

780 IF LH>0 THEN GG*INT< RND< 1 >*HHMF GG-ß THEN I »1-1 f R8IIR 1 030 ' 

790 IF UI>1 THEN W=W+1 = IF VV>10 THEN Wa0 :i llW~ " 

800 WWaINT<RND<l)*15> = IF WW«1 THFN Q13MR <*m~ 

310" IF SEC=0 THEN GOTO 830 

820 TG=TG+1 = IF TG>HH THEN POSITION et . 1 = •- » » = tt;^;, 

830 TPRP 1600 "' 

340 SOUND 1,38,0. .5 

850 IF YY=1 THEN SOUND 0,93-10,3 

860 POSITION 5.0:? :=;r: 

870 POKE 77,0 

880 IF STRIGC0>=0 THEN G08UB 1050 
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HEXT X - 

HEXT X 

NEXT X' CHLOR 32: PLOT fl,TB 



898 X*STICK<0>' COLOR 32 = PLOT R-B 
900 1F X=7 DR X«5 TKEH R«R+1 
916 IF X=ll ÜR X=9 THEH R-R-l 

920 IF SFO0 THEH IF X=14 0R-X~1H OR X~6 THEN GOSUB 1230 
930 IF R<2 THEH fi=2 
940 IF ft>38 THEH R=38 

950 LÜCRTE R,B,D=IF C<>4£ RND C<>32 RND CO 160 THEH GOTO 1350 
Wi IF D042 HNO D<>32 RND DO 160 THEH GOTO 1350 
970 SOUND 0.-0.. 0.-0 
980 Gnfo 650 

■=•90 XX=IHKRND< 1 >*BB> = IF XX<RR+1 THEH XX='RR+1 
103fl CHLOR 45 'PLOT XX.. 1 
1010 RFTURN 

1030 COLOR 46 'PLOT RR,l=DRRWTO BB, 1 
1030 FEaINT<RND(l)*BB-l)»IF EE<RH+2 THEH EE=tffl+2 
1040 COLOR 41 = PLOT EE-2, 1 = DRRWTO EE+2 • 1 = RETURN 
1050 LOCHTE fi,B~l.CC=IF CC<>32 RND CCOI60 THEH GOTO 1350 
1«60 COLOR 20 = PLOT R, ß-i -■ SOUND 0, 20, 0,15 = FOR X=*l TO 3 • HEXT X 
1070 COLOR 40 = PLOT R,B-1 'SOUND 0, 25.. 0, 15 : FOR X=l TO 3 = HEXT X 

10R0 f:OI HR ?0 : PL (TT R . B- 1 = SOUND , 20/0.10 = FOR X=l TO 3 : NEXT X = COLOR 32 = PLOT R , B- 
1090 FOR TB=B~2 TO 1 STEP -l'LOCRTF R,TB,TC 

1100 IF TC032 RHD TCO 160 RND TC046 RND TCO 174 THEH GOTO 1138 
1110 IF TC=46 OR TC«174 THEH GOTO 1218 
1 1. 20 NEXT TB ■ SOUND , 0, .. ' SOUND 1 , , , = RETURN 
1130 COLOR 20 'PLOT R, TB = SOUND 0,35,0, 15= FÜR X*l TO 3 
1 1 40' COLOR 40 •■ PLOT R , TB ' SOUND "0 , 40 ,0,1 5 = FOR X» 1 TO 3 
i 1 50 CHLOR 20 = PLOT R . TB ■ SOUND 0,35,0,10 = FOR X= 1 TO 3 
1160 IF TC*41 THEN SC=SC+50 
f. 170 IF TC*43 THEH SC«SC+100 
11R0 IF TC~45 THEN SC=5C+150= GOTO 1446 

1.190 IF TC=38 THEN SC*SC+500 = HT=HT+1 • IF HT>3 THEH GOTO 1470 
1 200 SOUND 0,0,0,0= SOUND 1,0,0,0 = RETURN 

1210 FOR 22=15 TO STEP -2 ' SOUND 0, 121 . 10 . 22 = SOUND 1 , 123, 10, 22 = NEXT 2Z = SOUND 0, 
0.0. Rh SOUND 1,0,0,0 
1220 RETURN 

1 230 SOUND 1 ,0,0 j ■ SOUND 2,0, , > FOR 22=255 TO STEP -10 = SOUND , ZZ , , 1 5 
1. 235 ' SETCOLOR 2,0, PEEKX 53770 ) = NEXT ZZ = SETCOLOR 1 , 0,0 = SETCDLOR 2 , 3 , 1 4 
1.240 TRRP 15S0 = FÖR Z2~l TO 10 

1250 POS IT ION 19,1: ? fi Ö" : COLOR 42 ■• PLOT R , B = RERD RR = RERD BB • COLOR 47 ■ PLOT 8,1= DRRW 
TO RR. 1 'PLOT BB..1' DRRWTO 38,1 

12(50 IF UU*0 THEN GG»INKRND< 1 )*HH^ IF GG=0 THEN L.H>1 ' GOSUB 1020 
1270 COLOR 32 ' PLOT 1 1 , ■ 1 1*11-0, 5 = WW=IHK RND< 1 >*25 VIF WW=1 THEH GOSUB 990 
12R0 IF IK19 THEH GOTO 1310 

1.290 NEXT 22 = FOR ZZ-B TO 255 STEP 10 = SOUND 0,22,0,15 
1295 SETCOLOR 2, 0,PEEK< 53770 >• NEXT 22= SETCOLOR 2,0,0 'SETCOLOR 1,0,10 
1300 SOUND 0,0, 0,0 'RETURN 

1310 SEO0 ' SOUND 1,8,0,0 = SOUND 2 ,6,0 , ■ FOR ??~ 1 TO 5 

132« POSITION 15,1@=? "OUT OF FUEL !"= SOUND 0,40, 10, 15= FOR X=l TO .50= HEXT X 
1330 -POSITION 15,10 = ? " "'SOUND 0,0,@,0'FOR X=l TO 60 'NEXT X 

1340 NEXT ZZ=GOTO 1350 

1350 SETCOLOR 1,0, 10= SOUND 1,0,0,0 = SOUND ;?, S.fi.Pi'FnR 72*15 TO 5 STEP -0.25 
135« SOUND 0,20,0,22 = SETCOLOR 2, 0,PEEK< 53770 > = NEXT ZZ 

1360 SEC-ßh SETCOLOR 2, 0,6 'COLOR 39 = PLOT R-B = SOUND 8,20,0, 15 = FOR X=l TO 10 'HEXT X 
1 370 COLOR 39 : PLOT R- 1 , B- 1 = PLOT R+ 1 , B- 1 = PLOT R- 1 , B ' PLOT R+ 1 , B ' SOUND , 25 ,0,15' FO 
R X«l TO 10 'NEXT X 

1 380 COLOR 39 ' PLOT R~2 > B~2 • PLOT R+2 , B-? = PI OT R--2 , B = PLOT R+2 , B = SOUND , 20 , , 15 • FO 
P X=l TO 10 'NEXT X 

1390 COLOR 39 'PLOT R-3,B»3 = PL0T R+3..B-3 'PLOT R-3,B = PL0T R+3,B = S0JJND 0,20,0, 15'FO 
R X=i TO 10 'HEXT X 

1460 COLOR 39 'PLOT R-4,B-4=PL0T R+4,B~4 = PL.rtT R~4,B = PL0T R+4,B'S0UHD 0,20,0, 15 = FO 
R X=l TO 10 'NEXT X 

1410 SHUHD 0.0,0,0 = SOUND 1-0,0,0' FOR X=« 1 TO 200 = HEXT X 
1420 FOR ZZ«1 TO 25 'POSITION 0,1'? "" =NEXT 22 
1430 SH-SH-1'GOTO 110 

1440 SOUND 1,0, 0,0 'FOR 22*1 I TO II+5'IF ZZ>38 THEN GOTO 1460 

1 4S0 COL OR 44 ' PLOT 22,0' SOUND , 2Z .10, 1. = FOR ;=<> 1 TO 2 ■ HEXT X = SOUND ■ , , •■ NEXT 
22 

1460 11=22-1 'SOUND 0,0, 0,0 'SOUND 1,0, 0,0= RETURN 
1470 SOUND 2, 0,0,0 'FOR ZZ»1 TO 20 
g4 __ ' Computronic 
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1480 SETCÖLÖR 2, 0,PEEK( 53770) = FÜR XX=9 TG 255 STEP 20: SOUND 0, XX. 19. 15 * SOUND i.w 

X+£, 19.. 15<NEXT XX 

1498 NEXT ZZ 

1*80 FDP QQ*i TO 5 

1510 ? FOR 2Z-13 TO STEP -0.3 .-SOUND 9,20,0,ZZ=SETCOLOR 2,0,ZH«SETCOLOR i,B*ZZ'NE 

ispiTnext m 

1 SS* ? '• %" : SETCÜLOR 1,0,10 = COLOR 42 = PL.ÜT fl , B - SOUND 0,0.0.0; SOI JND 1 . R . . fl 

1.540 POSITION 2,5 = ? "BRSIS ZERSTOERTM! BONUS 300R PUNKTE" 

1S50 SC=SC+5000 = FOR X=l TO 3RPi:NE'=-'T •■■■' 

1560 HH=HH-2-IF HH<3 THEN HrK? 

1.S70 SEC=0!GOTO 110 

1*580 FOR ZZ=9 TO 235 STEP 5 'SOUND 0,;"'Z,0, 13 = SFTf:OLnp 2.0,PEEK<537?0^NFVT 7?:3F1 

CHLOR ?■ 9,0 = SETCOLOR 1,0,10 " ' "" 

1R90 SOUND 0,0, 0,0* GOTO 1600 

160B SOUND 1,0, 0,0 = SOUND 2. PI. 0.0 

ISlfl COLOR 42'PLOT R,B= SOUND 0,0,0, @ = POSITION 14.1«»* "DU ENTKOMMST ' " 

1620 FOR X=l TO 200: NEXT X .' " ' ' ,r - MMO '- 

1.630 POSITION 3,10 = ? "VERSUCHE DIE BRSIS ZU 7FRST0EREN " " •■ FOR X«1 TO 900 > NEXT y 

1640 POSITION 5,10*? "ZERSTOERE JEDEN EINZE! NFN RFROTOR" """ " " 

1650 FOR X=l TO 200= NEXT X " 

16*0 POSITION 0,10=? »ZERSTOERE DRS MUTTER SCHIFF. VIEL GLUECK ! " = FOR X«l TO -MftiN 

EXT X 

1670 SEOal 'GOTO 110 

16R0 POSITION 15,10'? "GAME OVEP" =BETCm.nP ? ,0,0= SFTmLOR 1.0.10 

1.6S5 SOUND "0,0, 0,0 -SOUND 1 , 0, 0.0 : RDMND P . . . = sni IND 3.0.0.0 

16^0 TF PEEK< 53279 >«6 THEN Gntn 50 ' 

1700 GOTO 1.690 

1.71.0 POKE 1.6.64 = POKE 53774,3 •■ RETl.fRN 



Zeilen Split 



3 



1 



Atari 




Zeilen-Split 

Programmiert auf den Atari 400 (siehe 
Startup). 

Dieses Hilfsp.rogramm arbeitet wie 
AUTORUN. GEN und START nur mit 
Diskettenstation. 

Zeilen-Split numeriert ein anderes 
Programm neu durch, spaltet alle Zei- 
len in einzelne Anweisungen auf und 
gleicht alle Sprünge etc. an die neuen 
Zeilennummern an. Beginn und 
Schrittweite der neuen Zeilennum- 
mern werden eingegeben. Das alte 
Programm muß mit LIST „D:Name" 
auf Diskette stehen, das neue Pro- 
gramm steht mit LIST in der Datei 
„SPLIT.LST". 

Beispiel: 

altes Programm 

10 REM QWERTY: ABC 

20ONXGOTO 10,20,30 

30 A=1:B=2:C=3 

40 IF X=5 THEN A=1:B=2 

50 GOTO Y 

Domputronic — — ^^_____»_ 



Beginn: 10 
Sprung: 5 
neues Programm 

10 REM QWERTY: ABC 

15 0NXGOTO 10,15.20 

20A=1 

25 B=2 
30 C=3 

35 IF X=5 THEN A=1:B=2 
Fehlerhafte Adressierung in Zeile 
50/35 (alt/neu) 

Das GOTO Y in Zeile 50 wird natür- 
lich ausgeführt. Jedoch kann SPLIT 
die Variable nicht an die neuen Ver- 
hältnisse angleichen. Der Vorteil die- 
ses Programmes liegt darin, daß ein 
mit SPLIT bearbeitetes Programm 
wesentlich übersichtlicher und somit 
leichter lesbar wird. 
Zudem bekommt man mit Hilfe von 
„Zeilen-Split"' wieder genügend 
Platz, um neues einzufügen. 



36864 Horizontale Bildposition (nor- 
mal 12) 

36865 Vertikale Bildposition (normal 
38) 

36866 Spaltenanzahl des Videobil- 
des (normal 150) 

36867 Zeilenanzahl des Videobildes 
(normal 46) 

Bit wählt 8x8 oder 16x8 Ma- 
trix der Zeichen 
Als sinnvolle Anwendung die- 
ses Registers wäre die Erzeu- 
gung einer feststehenden Zei- 
le, welche sich nur durch PO- 
KE beschreiben läßt, denkbar. 
36869 Bit 4-7 dienen zur Bestim- 
mung der. Bildschirmadresse. 
Bit. 0- 3 bestimmt die Lage des 
Zeichensatzes. 

Die folgende Tabelle zeigt den 
Zusammenhang der ersten 4 
Bit's und der Position des Zei- 
chensatzes : 

Bit's Adresse Bemerkung 

0000 32768 ROM Zeichensatz Groß/Grafik 

0010 34816 ROM Zeichensatz Klein/Groß 

1100 4096 Definierbarer Zeichensatz 

1101 5120 Defi ni er barer Zeichensatz 
1110 6144 Definierbarer Zeichensalz 
1113 7 1 68 Definierbarer Zeichensatz 
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1 REM 

2 REM *** HEILEN-SPLIT *** 

3 REH UON ROLAND REYER 

4 REH 12/83 

10 REM FQRMALITAETEN 
20 DIM A$C1283,B*C1283 
30 GRAPHICS 

40 CLOSE #1 

50 ? 

60 ? " PROGRAMMNAME " ; 

70 INPUT A$ 

80 B$="D1 : " 

90 B$C43^A$ 

100 TRAP 40 

110 IF A$="" THEN ? M *":OPEN #1,6,0, "Dl: 

*.*";FOR J=l TO 100:INPUT #1,A$:? A$:NEX 

T J 

120 TRAP 30 

130 OPEN #1,6,0,B$ 

140 INPUT #1,,A$ 

150 GR=UALCA$(1533 

160 DIM ZNC 1000] ,SPC 10003 

120 TRAP 200 

180 INPUT #1,A$ 

190 GOTO 170 

200 FR=UALCA$3 

210 CLOSE #1 

220 IF FR>GR*2 THEN 280 

230 -?»StNICHT GENUEGEND SPEICHER UQRHAND 

EN2 2" 

240 ?'• fSPRUNG INS DOS S " 

250 FOR T=l TO 1000 

260 NEXT T 

270 DOS 

280 ?"WWELCHEN SEILENABSTAND UiUENSCHEN 

SIE ?*" 

290 TRAP 280 

300 INPUT ZA 

310 ? " BEGINN DER ZEILENNUMMERN " ; 

320 TRAP 310 

330 INPUT 2N 

331 ? "^WUUENSCHEN SIE NUR RENUMBER C13" 
:? " ODER AUCH ZEILENSPLIT C2 3 ?V 

332 TRAP 331 

333 INPUT SPLIT 

334 IF SPLIT <1 OR SPLIT>2 THEN 331 
340 REM 1. DURCHGANG 

350 OPEN #1,4,0,B$ 

360 OPEN #2,8,0, "Dl :SPLIT. TXT" 

370 TRAP 660 

380 ZC=ZC+1 

390 INPUT #1,A$ 

400 SOUND 0,60, 10,8 

410 ZNCZC3=UALCA$3 

420 A$*A$CLENCSTR*CZNC2CDD3+23 



430 SOUND 0,0,0,0 

440 SPCZC3=0 

450 J=l :IF SPLIT=! THEN J=LENC A$3 =GOTO 5 

40 

460 IF A$CJ, J3 <>CHR$C343- THEN 430 

470 J=J+1 

480 IF A$CJ, J3<>CHR$C343 THEN 470 

490 TRAP 510 

500 IF A$CJ, J+33- :, REM " OR A$C J , J +2) = "IF 

: ' THEN J=LENCA$3 :GOTO 540 
510 IF J=LENCA$3 THEN 540 
520 IF A$CJ, J3=" :" THEN J=J-1 :GOTO 540 
530 GOTO 640 
540 ? #2}A$C1,J3 
550 SOUND 0,20, 10, 8 
560 GES=GES+1 
570 A$=A$(J3 
580. SOUND 0,0,0,0 
530 TRAP 610 

600 IF A$C2,23 = ": i ' THEN A$=A$C33 
610 SPCHC3 = SPCHC3t-l 
620 J=0 

630 IF LENCA$3=1 THEN 320 
640 IF J<LENCA$3 THEN J=J+l:&OTO 460 
650 GOTO 370 
660 CLOSE #1 
670 CLOSE #2 
680 REM 2. DURCHLAUF 
690 GRAPHICS 

700 OPEN #1,4,0, "Dl =SPLIT. TXT" 
710 OPEN #2,8,0, "Dl :SPLIT.LST" 
720 FOR Z = 2N TO GES*ZA+2N STEP ZA 
730 TRAP 1330 
740 INPUT #1,A* 
750 SOUND 0,63, 10,8 
760 B$=STR$C23 
770 B*CLENCB4) + n = " " 
780 B$CLENCB$3+1 3=A$ 
790 A$=B$ 
800 SOUND 0,0,0,0 
810 J=l 

820 IF A*CJ, J3<>CHR$C343 THEN 850 
830 J=J+1 

840 IF A$CJ, J3<>CHR$C343 THEN 830 
850 TRAP 930 

860 IF NOT A$CJ, J+23--="ON " THEN 930 
870 TRAP 900 

880 IF A$CJ,J+S3=" GOTO "-THEN J=J+6:G0T 
1140 

890 TRAP 930 

900 IF A$[J,J+63=" GOSUB " THEN J=J+7=GO 
TO 1140 
910 J=J+1 
920 GOTO 880 
930 TRAP 950 
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Atari 



THEN 1060 



THEN- J=J+5:X=UA 



THEN J=J+5:G0T0 



THEN J=J+5:G0T 



THEN J = J+6 :G0 



AND NOT CA 
DD THEN J=J+ 



SOUND 0, 10, 10,4 
?"£ JÄ$CP,PDS 



940 IF A*U, J-f-3D = "REM 

950 TRAP 370 

360 IF A$CJ, J+4D="THEN " 

LCA$CJDD :GOTO 1140 

970 TRAP 990 

980 IF A$CJ, J+4D="G0T0 " 

1140 
330 TRAP 1010 
1000 IF A$CJ 3 J+4D="TRAP 
1140 

1010 TRAP 1030 
1020 IF A$CJ 3 J+5D="GOSUß 
TO 1140 

1030 TRAP 1050 
1040 IF A$CJ J J+7D="R£ST0RE 
tCJ+8, J+8D=" :" OR J+8>LENCA 
8:G0T0 .1140 

1050 IF J<LENCA$D THEN j=J+l:GOTO 820 
1060 ? #2,A$ 
1070 FOR P=l TO LENCA$D 
1080 
1090 

1 100 SOUND 0,0,0,0 
1110 NEXT P 
1120 ? 
1130 NEXT 2 
1140 TRAP 1510 
1150 A2=UALCA$CJDD 

EGES=0 

FOR SZ=1 TO GES 

IF 2NCS23=A2 THEN 
1220 

1190 2GES=2GES+SPCS2) 
1200 NEXT S2 
1210 GOTO. 1510 
1220 AL=LENCSTR$CA23j 
1230 B*=A*C1, J-1D 
1240 B$UD=STR$CN2D 
1250 TRAP 1280 

X=LENCB$D+2 

B$CX-1D=A$CJ+ALD 

J = X-1 

TRAP 1050 

IF A$CJ,JD=" 
1320 GOTO. 1050 
1330 CLOSE.#! 
1340 CLOSE #2 
1350 REH *** ENDE 
1360 ? 
1370 ? 
1380 ? 
1330 ? 

? 



1160 
1170 

1180 



NZ=2GES*2A+ZN:G0T 



1260 
1270 
1280 
1230 
1300 
1310 



THEN J = J + 1 :GOTO 1140 



*** 



'>>FERTIG 



"DAS BEARBEITETE PROGRAMn FINDEN 



1400 

1410 

SIE" 

1420 ? 

1430 ? "MIT ENTER'Dl :SPLIT.LST' 



1450 ? "AUF DIESER DISKETTE" 

1460 ? 

1470 ? 

1480 XIO 33,#1,0,0, "Dl :SPLIT. TXT" 

1430. END 

1500 REM FEHLERMELDUNG 

1510 ? "■2UN2.ULAESSIGE ADRESSIERUNG IN H 

EILE" ^O 

1520 2GES-0 

1530 FOR SUCH=1 TO GES 

1540 2GES=2GES+SPCSUCHD 

1550 IF 2GES>C2~2N)/2A THEN 1570 

1560 NEXT SUCH 

1570 A2=2NCSUCH) 

1580 ? A2;"/ !l ;2r' CALT/NEU) : ' 

1530 7 "DRUECKEN SIE EINE TASTE" 

1600 ?"ttt"; 

1610 POKE 764,255 

1620 IF PEEKC764D-255 THEN 1620 

1630 ? "SS' ; 

1640 POKE 764,255 

1650 GOTO 1050 



SPECTRUM 

FOR 

YOUNG CHILDREN 



COLOURFUL FUN EDUCATIONAL GAMES FOR 2 to 8 YR OLDS 
WITH SÜPERB GRAPHICS, SOUND AND ANIMATION 

SHAPE SORTER ie/48k 525 

3 animated programmes to aid shape 
rccognition Observation and size sorting. 

COUNTING 16/48K 5 25 

4 grades programmes good as a first 
introduction to numbers. 

ALPHABET 16kor49k 5.25 

Füll screen piciures for each letter, 
with an option to present lower case. 

ADDING & SUBTRACTING 

16/48k 5.25 
3 animated programmes introducing adding 
and subtracting. 



NEW 



PATH FINDER " i6/48k 5.95 

4 Compelling graded games based on mazes to develop planning and 
forward thinking. A different puzzte every time on each Programme. 
Each of the programmes appeals to children over a wide age ränge. 




WIDGIT 

SOFTWARE 



48 DURHAM ROAD. LONDON N2 9DT 
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Laser- Attack 

Das Programm ist in Pmode 3 ge- 
schrieben, arbeitet also mit viel Farbe. 
Es umfaßt 535 Programmzeilen und 
nimmt 22 KB -Arbeitsspeicher in An- 
spruch. Es ist also relativ lang. 
Aus tiefhängenden, verhängnisvollen 
Wolken bewegen sich feindliehe La- 
serstrahlen auf Deine Stadt. Unter- 
stützt werden die Angreifer durch Ra- 
keteneinsatz und Meteoriteneinschlä- 
ge. Deiner Stadt droht die totale Zer- 
störung. 

Deine Aufgabe ist es nun, alles Be- 
drohliche am Himmel abzufangen, be- 
vor die Erde erreicht wird. 
Um die feindlichen Laser abzuschie- 
ßen, muß man natürlich exakt ihre 
Spitzen treffen. Nur dadurch explo- 
diert der Laser und wird unschädlich 
gemacht. - Wenn die Laser ungefähr 
die Mitte des Bildschirms erreicht ha- 
ben, ändert sich ihre Farbe. Dieses 
soll nur besagen, daß es langsam Zeit 



wird, sie abzuschießen, da sie sonst 
Deine Stadt zerstören. - Wenn Du 
einmal weniger als Punkte haben 
solltest (das passiert, wenn Du Deinen 
Energie Vorrat aufgebraucht hast), so 
erscheint keine negative Zahl, son- 
dern eine rote, die jedoch wieder gelb 
wird ri sobald Du über Punkte hast. 
Sollte ein Laser in Deiner Stadt auf ein 
bereits weggesprengtes Stück treffen, 
so verschwindet er wieder und richtet 
auch keinen Schaden an; ebenso ist es 
mit Meteoriten. 

Sollten Laser, Meteoriten oder Rake- 
ten unterhalb . Deiner Laserkanone 
sein, so kannst Du sie nicht mehr ab- 
schießen - Du bist ihnen machtlos 
ausgeliefert. 

Der Schwierigkeitsgrad des Spiels 
wird mit der Zeit immer höher. Nähe- 
res über den Bildschirmaufbau er- 
fährt man in der im Programm enthal- 
tenen Spielanleitung. 
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500 
5J0 

520 

520 
540 

550 

560 

570 

588 

590 

600 

610 

620 

630 

640 

650 

I. ?r:' 

660 



Dragon 32 



***** LRSER - RTTRCK ***** 



COPYRIGHTS BY 
KRI COMBUECHEH 
KRRISTR..26,450? 
CO RPRIL 1984 



BRD IBU.RG 






CLS2 

CLERR 500 

PCLEflR 4 

PQKE 65494,0 

• PROGRRMMKÜPF-'SP I ELHRME •' 

R4=r:HR$< 128) 

FOR fi«l TD 122 

READ B 

PRINT 0B..R*; 

HEXT R 

'DRTR FI.IER PROGRRMMKPPF' 

DRTR 33 , 40 , 4 1,42. 46 . 47 . 4R . 49 . 5 t . ? 
65, 71. .75, 77, 83, 89, 93 
97, 103 .. 104 , 1 05, 106 . 1 07 . 1 1 . 1 
129, 1.35, 1.39, 145.. 147, 153, 157 
161 , 162 , 163 , 164 , 1 65 ■ 1 67 -171. 
323 , 324 .. 327, 328 , 329 , 331 . 332 . 
354 , 357 , 360 , 364 , 367 ]. 370 '. 372 '.. 
386 , 387 . 388 ■ 389 ■ 392 . 396 . 399 , 

418,421,424,428'.43i 

450 , 453 > 456 , 460 , 463 
EUER PRGGRRMMKOPF' 
(3224 , CHR*< 1 29 ;:■ 

B225,8TRING*C 5 
S230iCHR*< 135) 
f?243,CHR*< 139? 
(?249,8TRING*«f6 
f»255,CHR*n.20> 
(?256 , r;HR*<:' 1 3? > 
ffi?57,CHR*f 140^ 

CHR*<14n 

CHR*< 1 42 ) 

STRIHG*<2 

CHR*< 136); 

"RETTE DEINE STRDT" i 

"VOR DEN TOEDLICHEH I 




.434,436 
466,469. 



131 



131 



140) 



DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
•"TEXT 
PRIHT 
PROT 
PPT NT 
PRINT 
PRINT 
PRINT 
PRIHT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
'FI.RSHIHG' 
FOR R=l TO 15 
SCREEN0 . 

PI....RY " T 1 50 V 1 50 1 C02cn3r:ri4r:ri B ir: - 
FÜR B=l TD 
8CREEN0,1 
PLRY"T150V1 
FDP B«l TO 
HEXT R 

FÜR B*l TO 5000r HEXT B 
CLS 4 

PR I NT m , STR I NGSÜ 32 , 63 ) i 
FOR R«l TO 1.4 = PRIHT @32*fl.CHR*< 63 
PR I NT (3480 ■ STR I NG*< 3 1 , 63 ) :• ■ POKE 1 ! 
PR I NT S232 , " RHLE I TUHG < J-'N > " .; 
PLRY"T8V15G2CCGGFFL2G" 
R*=IHKEY*'IF fl**"" THEN 648 
TF R*»".J"' THEN SOUND 1 , 1 ■• GOTO 
; =GOTO 1150 ELSE 640 
Ol 8 



53,54 



58,59,60 



11 ■ tl.2. 115, 116, U7, 121, 122, 123, 124 



175 

T3'7 



176,179,180,181. 
341,342,345,348 



6258 
9284 
2285 
15287 
@23i 
(»259 



501 0020030 ( 
200-NEXf B 



50 5r: 04 003002 CD 1 ' 
200 'HEXT R 




RSEPJ 



PRIHT 
i. 127 



@32*H+31..CHR*<63>J : NEXT R 



>6 El. SE I F fl*- ' ' N " THEN P LR Y " T 8 V 1 0L4O2CED0 1. BD ? 



ht 
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67J9 Pf? I NT 15 1 ■ STR I NG3K 30 , 204 ) j 

6ff0 PRINT 5481,STRING$K30,195':'-PO!<E 1 535 ..193 

590 POKE 1034.. 208 

700 POKE lflWi.'tse 

710 POKE 1564,194 

720 FOR H=l TD 14 

710 PR I NT 532 *R, CHR*< 202 > • ; PR I NT 532* A+3 1 , CHRS< 1 97 ) i 

740 NEXT R 

7*50 'SPIELANLEITUNG' 

760 'UM NICHT ALLE LEERZEICHEN TN DEN PRINT- ANWEISUNGEN RUSZAEHLEN ZU MUESSEN, H 

TER EINE HILFESTELLUNG = DRS ZWEITE AHFUEHPUNGSZEICHEN STEHT IMMER 1 POSITION VOR 

DEM ERSTEN, RLSO : "TEXT . ,.,„,..„.: „ ,.'-, ,. , . . "_< EINE POSITION DAVOR > 

770 PRINT 638. "RETTE DEINE STADT !!".; 

790 PRINT @6fi,STRING*<28,i95:>.i 

790 SOUND 40,1 

900 PR I NT 5 1 29 , " GENAU DRS I ST IN D I ESE M SP I EL " .- PR I NT 5 1 6 1 , " DE I NE AUFGABE . KREM 

PFE GEGEN " .; 

810 PR I NT I? 1 93 , "DIE RNGRE I FEHDEN FE I NDE , D IE " - PR I NT «225 , " M I T ALLEN M I TTELN V . 

FR8UCHEN, ".-PRINT 5257, "DEINE STRDT ZU VERNICHTEN ... "t 

820 PRINT 13289, "SIE SCHI ESSEN MIT MEHREREN ".-PRINT 5321 , "LASERN UND SETZEN R 

USSERDEM " .- PR I NT 5353 , " RAKETEN UND METEOR I TEN EIN. ES " i ■ PR I NT 6385 , " I ST RLSO 

HflECHSTE ALARMSTUFE "-PRINT 5417- "GEGEBEN !!'"; -PRINT 5449, "'• DRUECKE EINE TAST 

E i V : 

«30 IF INKEY*»"" THEH 830 

840 SOUND 60,1 

8*0 PR I NT 5 1 29 , " NRTUERL 1 CH KANNST DU DE I HE " s ■■ PR I NT (5161 , " STADT RETTEN , I NDEM 

DU DICH ".-PRINT 5193, "ALS MUTIGER KAEMPFER ZEIGST "SPRINT 5225, "UND .VON D 
FINFM LASER GEBRAUCH "SPRINT 5257, "MACHST., ■ "; 

860 PR I NT 15289 , " E I NEN EHTSCHE I DENDEN VORTE I L " • : PR I NT £32 1 , " HAST DU , DR DE I N RR 
UMSCHIFF ".-PRINT 0353, "UNVERWUNDBAR IST. "; 

870 PR I NT 5385 , STR I NG»( 30 .. 1 28 > : = PR I NT 54 1 7 , STR I NG*< 30 , 1 28 ) ; 
880 SCREEN 0,1 
890 IF INKEY**"" THEN 890 
900 SOUND 80,1 

910 PR 1 NT 5 1 29 , " DRFUER HAST DU DE I NE S TADT " .; ■■ PR I NT 5 1 €• 1 , " JEDOCH VERLOREN , WE 
NN DIE ".-PRINT 5193, "FEINDE 3 ERFOLGREICHE ".-PRINT 5225, "EINSCHL. AE 
GE VE RZE I CHNEN " - PR I NT 5257," KD E NNEN - " • 

920 PR I NT 5289 , " SOLLTE ES D I R GEL I HGEN , D I E " .- PR I NT 532 1 , " FE I NDL. I CHEH RNGR I FF 
F ARZU- "-PRINT 5353 . "WEHREN, WIRST DU VON DEN EIN- ".-PRINT 5385, "WOHNERN W 
n HL ZUM ' M I S TER " .; * PR I NT 5417," WEI. . T RAUM ' ERNRNN T . . . " ; 
930 IF INKEY**"" THEH 930 
940 SOUND 100,1 

958 PRINT 5129, "BEVOR DU DIR SCHON DIE JUBELN™ " - PRINT 5161, "DEN MASSEN VORSTELL 
ST, SEI DIR" .-PRINT 5193, "BESSER ERST EINMAL DER B'ILD- "-PRINT 5225, "SCHIRMRUF 
BAU ERKLAERT = " • 
9m PRINT. 5257, "OBEN LINKS WERDEN DEINE PUNKTE" - PRINT 5289, "ANGEZEIGT . WOBEI ES 

FUER ...JEDEN " .- PR I NT 532 1 , " ZERSTOERTEN f.. ÄSER 1 00 PUNKTE ,f .- PR I NT 5353 , " G I BT , FUE 
R JEDEN METEORITEN ".-PRINT 5385, "300 UND FUER JEDE RAKETE 500. " j 
970 PRINT 5417,STRIHG*<30,128:i.: 
980 SCREEN 0,1 
990 IF INKEY*="" THEN 990 
1000 SOUND 120,1 

1010 PR I NT 5 1 29 . " RECHTS DANEBEN E RKENNST DU , " - PR I NT 5 1 6 1 , " W I EV I ELF E I NSCHLAE 
r;p n-ETNF " i-PRTNT 51 93, "STADT NOCH RUSHRELT. RECHTS "-PRINT 5225, "OBEN WER 
DEN D I E ENERG I EE I NHE I - " .- PR I NT 5257 , " TEN DE I NES LASERS ANGEZE I GT „ '"' ; 
1. 028 PR I NT 52R9 .»'DIE NACH E I NEM RNGR I FF UEBR I G- " .- PR I NT 532 1 , " GEBL I EBENEN ENERG I 
EETNHFITEN "-PRINT 5353, "WERDEN DIR RLS PUNKTE GUTGE- " .- PRINT 5385, "SCHRIEBE 
N. ALSO SEI SPARSAM! "; 
1030 IF INKEYS*"" THEN 1030 
1040 SOUND 140, 1 

1 flSfl PR I NT 5 1 2.9 . " sru I TF DIR DER ENERG I EVORRRT " ; = PR I NT 5 1 g 1 , " E I NM AL AUSGEHEN , S 
fl BEKOMMST "-PRINT 5193, "DU EINEN NEUEN, DER DICH JE- ".-PRINT 5225, "DOCH 300 
0< ! ! '> PUNKTE KOSTET. " ; ' „„ 

10G0 PPT NT 52=17. "WENN EINE RAKETE ODER EIN ".-PRINT 5289, "METEORIT RUFTRITT, 

WERDEN DIE " - PR I NT 532 1 , " L RSER I HAKT I V I ERT . DRM TT " - PR I NT 5353 , " SCNELL I G 
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KEIT 
1078 

SST, 

1090 

1100 
1110 

DEINE 
I WIRD 



INS SPIEL KOMMT,. "-. 

PRINT £385, "WENN DU DEN BILDSCHIRM flHF 

30 

SCREEN 0,1 

IF INKEY*="" THEN 1098 

SOUND 160.1 

PRINT £129, "GELANGST 

WEN- ".: 'PRINT 0*193 

MIT DER 7EIT 



DU RUF DIE ANDERE 
"DIGKEIT ERHEBLICH,. 



: PRINT (?417, M EINER SEITE VERLAE 



PRINT @ 161, "SEITE. DA? ERHOEHT 



•PRINT S2 



-jf 



IMMER SCHWIERIGER 



1120 PRINT 6209," MEN MEHR RAKETEN UND METEOR I- " 
I... I EGEN NUR " i ■• PR I NT G353 , " NOCH E I NMAL UEBER DEN 



HD DIE METEORITEN FRL-"; = PRINT 841 

1130 IF INKEY*«"" THEN 1130 

'RBFRRGE EUER SPIELBEGINN' 
PI cg 

ei.STRING*C30,2S2>.i 
"*0 .• CHR*< 254 ) ; ' PR I NT 1531 , CHRfr- 253 ':< i 
= 1 TO 14 
(?32*fl , CHR*< 250 > > ■• PR I NT S32*A+3 1 ■ CHR$< 245 > 



".; = PRINT @225,"DRS SPIE 
.. ES KOM- "; 
9321 .."TEN 
"; ! PRINT 
EN SCHNELLER. VIEL GLUECK » ' ' 



■ PRINT 
BILD- 



DIE 
<?3R5 



RAKETEN 
"SCHIRM 




DIE FIRETRSTE FIJER SPIELBEGINN. 



ELSE FÜR B=l TO 80 = NEXT B 



1140 

11150 

1160 PRINT 

1170 PRINT 

1180 FÜR R 

1190 PRINT 

1200 NEXT fl 

1210 PR I NT&488 , CHR*< 25 1 > ; 

1220 PRINT STRING*<30.243)i 

1230 POKE 1535,247 

1240 PRINT S66, STR ING*< 28. 1 75 ^ 

1250 PRINT ai30,STRING$(28.?0?>; 

1260 PRINT ei94,STRING*(28,143:-: 

1 270 PR I NT 9322 , STR I NG*< 28 , 1<H > ; 

1280 PRINT (?418,STRINGSK28,i59>i 

1 290 A*=STR I NG*< 40 , 255 HSTRI NG*< 30 . ?49 V " DPI IEHKE 

"+STRING*<30,246:j+STRING*C 10,255> 

1300 'LAUFENDES SCHRIFTBAND' 

1310 FOR A*l TO LEN<R*>+1 

1320 PLAY"T40V15L4O3C H 

1330 PRINT P257,MID*<R*,R,30yi 

1340 IF PEEK< 65280)- 126 OR PEEK-:' 6R2RR ^9^4 THFN 13R0 

1350 NEXT A 

1360 TIMER=0 

1370 IF TIMER>»150 THEN 1290 EI.SF 1370 

1 380 P0KE65495 , ■■ ' HOEHERE GESCHWI ND IGKE IT' 

1.390. CLS 2 

1400 FÖR A*0 TO 95 = PRINT ?A, CHRSK RNDC 1 ?fi ':>+1 ?? *:. ; > NEXT A 

1410 FOR fl=41S TO 310; PRINT SA, CHR*<RNIV 12RVM27 ^ ''NEXT A'PfW 

1420 PRINT 0192, STRIHGSK96 ■ l?PO : "'" 

1430 PRINT 13228, "NUN GEHT'S GLEICH l OR„ . „ " ; 

1440 FOR R*l TO 31 ■■ PLRY"T60O5L4V"+sfp*f R l+'T," : NEXT fl 

1450 FOR A*31 TO 1 STEP -1 'PLRY"TS0V"+STR*< fl j+'T" = NEXT R 

1 460 ' SP I ELVORBERE I TUNG-'ZE I CHEN I N I T I fll... I S J FRI JNG 

1470 CLEAR 509 

1480 PMODE 3'PCLS l'COLOR 2,1 

1490 'DIMENSIONIERUNG DER FELDER' 

1 580 D IM A< 8 > . B< 1 ) , C< 8 > , D< 5 ) . E< 96 "> . fV 1. «i4 > . R3f ft ":« . R4«r R ":« . !=*:" 1 PI ':< . D*«:' 1 "i . H*< 

..Mf 10> 

1510 'LEERFEI- DER' 

1 520 GET< 20 , 95 W 43 , 1 05 ) , B3 , G 

1 530 GETC 1 99 , 54 W 2 1. 2 , 75 •' , B4 , G 

1 540 C= 1 20 ' H«3 : P-3 ■ F»S : V-2 ! ¥«fi0 = p~ J RR = D=?4fi : T =0 ; 0=0 : ES ffi 4 * 7R»Fi 

1550 'DPflM-STRINGS FUER STADT' 

1560 B*< 1 >= , '6U7R8U4R4D2R2U9R6D7R4D6R8D4" 

1 «570 B$< 2 ••= " P5U2R4U 1 6R2D 1 3R5U3R2E3R6D4P5D5 " 

1 5ff B$< 3 >* " R4IJ 1 4H 1 L..5E 1 U 1 H 1 R7U4R 1 D4R7G 1 D 1. F 1 f.. 5G 1 D 13" 

1 590 PM. 4 )« " R5U3R8F3R2F4R3U6R4U6R6D5 " 

1 600 BSC 5 )« " R5D3R5U 1 8R2D8R3D4R3U2R3U2R5 " 

1610 B*< 6 >= " U3R8U 1 R4D5R4D2R3 " 

1 620 &*< 7 >a " IJ 1 0R2D6R2F 1 R 1 D3R4U20R9D 1 5R7 " 

1 630- B*< 8 >»"D5R6U3R4U1E4RBF3D7R6" 

1 640 B$< 9 )» " U 13R4D1 2R4D 1 R4USRSD3R4D2R4" 

1 650 B*< 1 5= " U8E3F3D5R4D4R4U3R4D3F 1. R2 " 
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1 66R I T NEC .■ 1 9 1 >-< 255 • 1 9 1 ■' • PSET 

1670 DRfi!4"BM0, 185" 

1680 'STADT ZEICHNEN' 

1690 FÜR Rat TO l@ 

170S DRRW B*<A> 

1710 NEXT R 

1720 PRINTC 1,1. 90), 3,2 

17^0 f . I NE< 0,15 ?-< 255 , 1 5 ■■ , PSET 

1746 ■'RAUMSCHIFF'' 

1 750 DPRW " BM50 , 1 55U7P 1 F2R2E2 NU5F2R2F2U 1 D7H 1 L.3D 1 L4U 1 



1760 PRINTC 



153 X. 3,2 




1 770 GET< 47 , 1 44 W 68 , 1 55 ':« , A , G 
1.730 GEK50.. 144>-<63,155V,D,G 
1 790 L I NE< 50 , 1 44 >-< 63 , 1 55 ) , PRESET , BF 

1800 ' RAKETE ' 

1 fl 1 PRH W " BM2 ■ 1. 00R5 D 1 HL 2D4R 3E 3NL5R7F 2 H R2 1 . 1 1. 1 1. H :!. HD3L 7HL5H3L 3D4 1....3 " 

1R20 PRINT< 27, 99 >.- 4, 2 

1 R30 GETC 1 2 , 95 VC 43 , 1 05 ) , B , G 

1 R4Pi PI ITC 20 , 95 >-< 43 , 1 05 > , B3 , PSET 

1R50 'METERDIT- 

1 R60 D RAM ' ' BM200 > 60 R 1 F2E 2R2E 1 U2L 1 U 1 H 1 !... 2H 1 !.... 1 G2D 1 G 1 D 1 ' ' 

1870 PRINTC 203,60 >.. 4, 2 

1 S8G GETC 1 99 , 42 W ?.. 1 , 62 > . C - G 

1 890 PUTC 1. 99 , 54 >-< 2 1 , 62 ) , B4 , PSET 

1900 COt.CiR 4 

1.910 'WOLKEN ZEICHNEN' 

1 920 DPRW " BM0 , 25R3F2R 1 F 1 R 1 F2R2F 1 R4E2R 1 E 1 R2 F 1 R 1 E l R2E 1 R 1 E 1 R4F 1 P2F 1 P2F 1 R 1 F 1 R 1 F3D 1 F2 

R 1 F i P 2F 2P4E 1 R 1 E2 U 1 E 1 R 1 E 1 R 1 E 1 R 1 E 1 R3E 1 R 1 U2F 1 R5F 1. R2F 1 R2F 1 R 1 F4 " 

1 =130 DPRW " R6E2I 1 1 E 1 R2E 1 R8E 1 R 1 E 1 P3F 1 R 1 F5R 1. F 1 R2F3R2E 1 R 1 E3R 1 E 1 R3E 1 R3E 1 R2E2U 1. E2P, 1 E 1 R3 

F 1 R2F 1 R 1 0F 1 R 1 F 1 R3F2R8E2R 1 E 1 R5E 1 R2E2R6F 1 R5F 1 R 1 F 1 R3F 1 R3E 1 R4E 1 R3E3R2F 1. R 1 E 1. R3F 1 ü 1 " 

1 940 I, I HE< 0.16 W 255 , 1 6 > , PSET 

1950 Pfl IHT^ 0,22 ::■■ 4,4 

1 960 GETC 0,17 W 255 , 39 > , G , G 

1970 C0I...GR 2 

1980 'GAME OVER' 

1 qc,0 n-PRU " BM99 . 801 IRF3R6F2D2L3I J 1 1... 3G 1. PSF 1. R2E 1 1. J 1. L2U2R5D5G2L 6H2 " 

2000 DRAU " BM 115, 83U 1 1 E3R5F3D 1 1 L..3I J5I....5D 5L2BU8BR2P5U2H 1 LSG 1 D2 " 

2010 DRRW " BM 1 30 , 83 U 1 4R 4F 4E4R4D 1 4L 31 ' 1 G4H4D 1 0L.2 ' ' 

2020 DRAN " BM 1 50 , 83U 1 4R 1 1 D3L7D3R4D3L 4D 2R7D3L 1. " 

2030 DRRU"BM98, 102U8E3R7F3D8G3L7H3BR5R2F1U6H1.!. 2GID6" 

2040 DPRW " BM 1 22 . 1. 05H5U9R3D3F2E2USR4D9G5 " 

2Ä5 DR A W " BM-i 34 , 1 5U 1 4P 1 1 D 3L7D3R4D3 L4 D 2R 7031. 

2060 DRRW " BMI 50 , 1 05U 1 4R9F2D3G8F3D31. 8U2H3L 1 DSL 

°07R 1 I NEC 90 , 65 W 169,110 ::. , PSET , B 

2080 PRTHT<94.66>,3,2 

2090 GETC «30 , 65::'-'' 1 69 , 1 1 ) , E , G 

2 1 00 I.. T MEC 90 , 65 >~< 1 69 • 1 1 ) , PRESET , BF 

21. ifl 'LRSER-EKPLOSIQN' 

? 1 1 « ' t... ASER-EXPLOS I DN ' 

2 1 20 ■ R* = ' ' NU2NE2NR2HF2 H D 2 HG 2NL2 HH2 " 

2130 'ZIFFERN FUER PUNKTEZREHLEP' 

2 1 40 D*C PI ^ " BU 1 1 J8BU 1 BR2 R3B R 1 BD 1 DBB D 1 Bf.. 4P. 3BR5 ' ' 

2150 D$<1 >*"R5L3U10D1L2D1BD8BR8" 

? 1 60 D$c ? ':•- ' ' P6NÜ 1 !.... 6U5R6U5L6D 1 BD9BR 1 ' ' 

2 170 6* C 3 >= " NU 1 R6I. J5NL4 Ü5L6D 1 BD9BR 10" 

? 1. 8 D $ C 4 >» " B U5NU5 R6NU5D5BR4 ' ' 

2 1 90 D*< 5 >- " NU 1 R6I..J5I... 6U5R 6 BD 1 BR4 " 

2200 D*C 6 >e " R6I I5L6ND4U5R6BD i 0BR4 " 

22 1 fl MC ? >= " BR2U4BU 1 BR2U2BU 1 BR2l.t2L.6BD 1 RBR 1 " 

22?« D*C8 ■'-" ijl0R6D5NI...4D5!....4BR8" 

2230 6$':' 9 )="R6U10L6D5R6BD5BR4" 

2240 GOSUB 4240 

2250 GOSIJB 4370 

2260 ' PUNKTE-SCHR I FT2E I CHEN ' 

2270 DRRW " BM2 . 1 3C3U 1 0NL.2R3BR 1 BD 1 D3BD 1 81... 4R2.BD4BR6NU9BD 1 BR2P3BR 1 BU 1 U9BR4ND 1 0D3R2D 1 

BR2BD 1 D2BR2HD3IJ7BR4 " 

2280 DRRW "Dl 0U5P3BR 1 BD 1 D2BR2BD 1 D 1 BU 1 0D 1 BL2.D2BL2BD 1 D 1 BU5BR8 " 



10" 

iL 2BM 1 54 , 97P 1 E 1. f J 1. H 1 L 1 D2 ' 
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'j;XH*C 1 ::-;" 



2290 DRR|,J ,, R7L4D10BR7NR7U5NR5U5R7' i 

2300 'SCHRIFTZEICHEN FUER ENERGIE DFFTNTFPFN-' 

2310 H*C 1. >s"U4NR4D2NR2D2R4BR4 H 

*3?8 H*< 2 >»"U4DlR2DiBRlDiRlBDiBRlNU4BR4" 

2330 H*C 3 >» " U4R3BD 1 BR 1 R0BD 1 BL2R 1 BD 1 BR 1 D 1 BR4 " 

"■'340 H*C 4 >s"U4R4BD2D2NL2BR4" 

2350 H*< 5 >» "R5L3U4L 2R5BD4BP3 " 

2369 'ABGRENZUNGEN RM BILDSCHIRMRflHD ZEICHNEN' 

2270 COLOR 2 

2380 L I NEC , )-< 255 , > , PSET 

2390 L I NE< 1 25 , >-C 1 25 , i 5 > , PSET 

2400 L I NEC 1 50 .. >-C 1 50 , 1 5 ) , PSET 

24113 'ENERGIE-SCHRIFTZEICHEN ZEICHNEN-' . 

2420 DRRWBMi 79 , 6 ; tfHStf 1 > ; XH»< 2 ) ; XH*C 1 -- i XH*C 3 ':< ; XH$-r 4 > ; :«:H*<' 

2430 COLOR 4 

2440 U.HUX 160,9 >-~C 245, 13 > . PSET . RF 

2450 'SPIELBEGINN & BILDSCHIRM-' 

2460 SCREEN 1,0 

2470 GOTO 3160 

2480 'SUBROUTINE ZUR JOYSTICKRBFPRGF J 

2490 B*JOY5TKC0^ 

2500 RsPEEK( 65280 ) 

2510 IF EKB RND C>3 THEH C«C-3 ELSE IF B<8 RND C<=3 THFH rR?^i| TNFC3 , 147W 24. 1 

59). PREBET, BF 

2520 IF B>55 RND C<233 THEH C=C+3 ELSE IF R'^i RND C=>?33 THEN 0=3 = | IHEC 233 ■ 147". 

-f 234, 139).. PREBET, BF 

2530 PUTC C , 1 47 ">-< C+2 1 , 1 59 > , R , PSFT 

254« IF fl=127 OR fl=255 THEH 273R 

2550 CHLOR 2 

2560 'SCHUBS' 

2570 PLRY" T255L4V 1 505C04GC03GOri?GOn t GH " 

2580 FÜR 8=147 TO 55 STEP -4 

25'=»0 I I NE< C+ 1 , B-5 >-C + 1 , Ei- 1 > , PSFT ■■ I T NF ' C + 1 Pj . B W C+ 1. fl . B-5 k . , PPFRFT 

2606 NEXT B 

26 1 Ö L I NEC C+ 1 j B - 2 ) - C C + 1 , B- 7 > . PREBET 

2626 L I NEC D , 9 W D-E , 1 3 "> . PREBET . RF 

2630 D=D~E 

2640 IF D>16@ THEH 2690 

2650 F*F-3009 ■ D=*246 

2660 COLOR 4 = LI NEC 160, 9 >-C 245 . 1 3 ':• , PSFT . BF ; CO|. HR ? 

2670 GOSUB 4240 

2680 ' SCHUSSHUSWERTUNGC TREFFER/KEIN TPFFFFR ':< 

2690 IF S-3 THEN GOSUB 3880 ELSE 2710 

??m RETURN 

2710 ON S GOSUB 2750.2010 

272Ö IF G<100 THEH CO) DR 4 ELSE COLOR ? 

2730 RETURN 

2740 'SC HUB S R 1. 1 8 WER Tl. JNG ■ LASER ' 

2750 RsC+ifl 

2760 IF RV2<'MHTCR/2':< THEN R*R-1. 

2770 FOR W=t TD H 

2780 BsINT-ri/WHMCWVj 

2790 IF B,'2<HHKB-'2::- THEN B=B-1 

2800 IF fl*B THEH 2820 ELSE HEXT 

2810 RETURN 

2820 DRRW'BM" +STR*C INTC LC W )+MC W > >>+■", "+STR*C N+ 1 ■' 

«880 FOR fi=l TO 16 

2340 DRRW " S " +STR*C R Hfl* 

2850 PLflY"T50V"+STR*CR>+"niF H 

2860 HEXT R 

2870 FOR R«16 TO 1. STEP -1 

2880 DRRW' 1 C 1 S " +8TR*C R Hfl* 

2890 NE Ja R 

2900 FOR fl*N+l TO 20 STEP -1 

'9 10 LINE'' LC W )+MC U '.:- , R )-< LC M ) , fl- i ':■ . PREBET 

?920 LCWX.CWV-MCU) 
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3930 HEXT R 

3940 UW>=*0 

2950 IF 1 = 1. THEH RETURH 

2960 F=F+100 

2970 GOSUB 4240 

2980 P=P~1 

2990 IF P>0 THEH RETURN ELSE GOTO 3160 

3600 ' SCHUSSfl US WERTUNG : RAKETE J 

3010 IF K+10<C+10 AND C+10<K+31 THEH 3 820 ELSE RETURN 

3020 PI... RY" T255V 1 SL.40 1 CC#DD#EFF#GG#Rfi#B02CC#DD#EFF#GG#RR#B03Cr:#DD#EFF#GG#Rfi#B04CC 

#DD#EFF#GG#Rfi#BÜ5r:C#DD#EFF#GG#flR#B'' 

3030 FOR Rssi TD 15 ' 

PUT < K ■ J )-( K+31 .. H10 ) .. B , PSET 

PLftV"T60V15L4OiC" 

FOR B«l TO 20: HEXT B 

PI..!T< K , J ':>< K+3 1 , .1+ 1 ':■ . 83 , PSET 

PLAY " T60 V 1 5L40 1 C " 



3040 
30*50 
3060 

3070 
3080 
3090 
3100 

3110 
31?0 

3130 
3140 
3150 
3160 
3170 
31.80 
31.90 
3200 
3310 
3220 
3330 
3340 
32*50 
3360 
3?70 
3300 
3390 
3300 
331.0 
3320 
3330 
3340 

3350 

3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3430 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 



FOR B=l TO 20= HEXT B 

HEXT R 

F=F+500 

GOSUB 4240 

G*N+i 

GOTO 3380 

' HflUPTRÖUT I NE-'LRSER J 

FOR W«l TO 1.0 

I. ( W )-0 ' ITC W ':>=0 

HEXT H 

X«MEM 

G=20 

PUT< 0.17 W 255 , 39 ) .. G . PSET 

nni np 4 

IF Q=0 THEN 3290 

L I NE< 1 60 , 9 W 245 , 1 3 > , PSET . BF 

F=F+<D-160?#5 

D=246 

GOSUB 4240 

PL R Y " T4L4V 1 50200 1 f„8GGL4G#L 8GP4L4B0?r: " 

H=H+1:P«H = 3=1. :P=1 

T.F H*ll THEH 4610 

FOR W=l TO H 

B=RND< 2 ;■ 

IF B-l THEH R*l ELSE R*-l 

IX W >=RHD( 253 !j+2 

W-. w :>*m< 3*RND< H „ 03 ) 

I F !....( W ) + 1 70*M< W ■' "i-248 R !. < W )+ i 7 * M C U ) < 7 THEH 

HEXT W 

S=i 

FOR N=G TO 1.38 

IF G<100 THEH rriiOR 4 ELSE COI....OP 2 

FOR W=l TO H 

IF L..ri,J>==0 THEN ":450 

L. INE< La W "■' , N >-'■ La W >+f'K W ":■ , N+l '.:■ ■ PSET 

TE GM 60 THEN GOSUB 4430 

HEXT H 

IF G>1 46. THEH 3480 

F«2=G0SMB 2490 

FÜR W=l TO H 

IE LXM>-0 THEH 3510 

!....< M ■'=!....':: W V+-f*K W > 

HEXT W 

fl«RND< R 5 

IF R«10 THEH 8620 EISE IF fl~20 THEH 3980 

G=G+1 

HEXT N 

FOR W»l TO H 





74 



Computronic 



3570 
3530 
3590 
3600 
3610 
3620 
3630 
3648 
3650 
3660 
5670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3230 
3840 
3850 
3860 
3870 
3880 
3390 
3900 
3910 
3920 
3930 
3940 
3*50 
3960 
3970 
3980 

3990 
4000 
40 1 
4020 
4030 
4040 
4050 

4060 
4070 
4080 
4090 
4100 
41 1.0 
4120 
4 1 30 
4140 
4150 
4160 
4170 
4180 
4190 
4300 
4210 
4220 
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33*0 




IF L/M>=0 TUEN 3590 

T ~ 1 1 GOSUB 2900 « I «0 ' I < U >«0 

HEXT U 

GGTO 3160 

' METERÖI T' 

T=RND(220H10 

3*3'GW+H 

FOR IJ=40 TD 168 STEP V 

PUTC T . U )-< T+l 1 ■ 1 1+21 ") ■ r: . PSFT 

IF U>133 THEN 3690 

E*4«.G08UB 2490 

GOSUB 2490 

HEXT U 

'METEROIT SCHLAEGT IN STADT FTN J 

FOP R=ß TO 11 

IF PPOINTCT+A, 190>~3 THEN 3730 BM Nf 

FOR NE=1 TO 10 

SCREEN 1.1 

PLAY " T250V20L4O 1. GG#RA#RG#G " 

FOR ZF-1 TO 100: HEXT ZF 

SCREEN 1,0 

PLAY "T250V20L4O 1 F#FED#EFF# " 

FOR ZF*1 TO 100= HEXT ZF 

HEXT HE 

L T NEC T-3 , 1 60 W T+ 1 4 , 1 90 ':• . PPFSFT . ßF 

GOSUB 4370 

GOSUB 5330 

GOTO 3860 

PUT< T , LI >-< T+l 3 > U+ 18 > < R4 . PSET 

GOTO 8380 

'METEROIT GETROFFEN ?•' 

IF T*<C+10 AND C+10»<T+11 THEN 3890 Fl SF RETURN 

PUT< T , U >-< T+ 1 3 , U+2 1 ) , C , PSET 

PLAY" T50V 1 5L405EC04G05C04GEGECEr.03r 1 04C03GEGECEC02G03Cn2GEGECri 1 G02T/1 1 GFGFP- " 

FOR A=l TO 500 'HEXT R 

pl.,IT< T, U >-< T+l 3, U+21 ) . B4-. PSET 

F-F+300 

GOSUB 4240 

COLOR 4 

GOTO 3380 

'RAKETE' 

PLRY"T250L4V25OlGF#FEFF#GF#FF.FF#GF#FFFFttGF#FEFFft^ 

FOR J=60 TO 180 STEP V 

FOR K=5 TO 222 STEP 8 

PUTC K ■ • .' *-< K+3 1 . . I+ 1 :« . R , PSET 

TF 1-1.80 THEN 4090 

E«6 ■ GOSUB 3490 

HEXT K . 

PI ITC K ■ . I WC K+23 .1+10 ':» . R3 . PSET 

HEXT .1 

'RAKETE SCHLAEGT IN STADT EIN' 

IF PPniNT<K+82,189>=l THFN 4050 EISE 41.00 

FOR R*l TO 1.0 

SCREEN 1.1 

PL AY " T250V20L4O2GG#RR#RG#r, " 

FOR B*l TO 109' HEXT B 

SCREEN 1,0 

PLAY " T250V20L 402F#FED#EFF# " 

FOR B=l TO 100: HEXT B 

HEXT A 

L I NEC K > 1 60 >-< K+36 , 1 90 ) . PRESET . PF 

GOSUB 4370 

GOSIJB 5330 

G=H+1 

GOTO 3380 
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4230 'PUNKTEZAEHLUHG' 

4240 DRAWS4C2" 

4250 1F F<6 THEH DRRW"C4" 

4260 E*=STR*<F> 

4270 A<EN<E*> 

4280 L I NE< 64 .- 3 >-< 1. 23 , 1 3 > .. PREBET , BF 

4290 DRRW"BM64, 13" 

4300 FÜR B«R-1 TD 1 STEP -1 

431.0 ?F=A~B+1 

4320 WE=VRL .< M I D*< E$ , 7F , 1. ) > 

4330 DRflW D*<WE) 

4340 HEXT B 

43*50 RETURN 

4360 'ZREHLER FUER FEINDLICHE EINSCHLAEGE IN DEINER STADT 

4370 ES*ES-1 

4380 IF ES<0 THEH 4830 

4390 L I NE< 1 30 , 2 >-< 1 45 , 1 4 > , PRESET , BF 

4400 DRRW"6M134, 13S4C3"+D*<E8H ,, C2" 

4410 RETURN 

4420 'LASER ERREICHT STADT' 

4430 IF PP0INT<LCW>+MCW>,N+2>*3 THFN 4440 ELSE RETURN 

4440 FÜR R=l TG 10 

4450 SCREEN 1,1 

4460 PLAY " T250V2ÖL4O3GG#AA#AG#G " 

4470 FriR B=l TD 100 : HEXT B 

4480 SCREEN 1,0 

4490 PLRY"T250V20i...4ü3F#FED#EFF#" 

4500 FÜR B=i TD 100: HEXT B 

4510 HEXT R 

4520 L I NE< \..< M >+M< M >-S - 1 60 >-< L< W >+M< U >+:": , 1 90 ) . PRESET , BF 

4530 GOSUß 5330 

4540 GOSUB 4370 

4550 1=1= GOSUB 2900=1=0 

4560 La-n~0 

4570 PaP-1 

4580 IF P>0 THEH RETURN ELSE GOTO 3168 

4*90' RETURN 

4600 ■" ZWISCHENBILANZ"' 

461.0 CiS 7 

4620 ZA=ZR+ 1 = H«3 < V»V+ 1 = R»R- 1 : Q=0 : I F Zfi >«' 

4630 IF ZR=4 THEH 4710 

4640 PR 1 NT 1333 , STR I NG3K 30 , 1 59 > :• ■ PR I NT 94 1 ' 

4650 PRINT 65106.. "GRATULIERE'* .i 

4660 RR I NT P 1 6 1 . " DER " ; ZR ; < PR I NT (? 1 66 . " . RNGR I FF WAERE GLUECKL I CH " .: ■ PR 1 NT S233 .■ " UE 

BFRSTRNDEN !"; 

4670 PRINT r«?9Pf."7AHL DER HOCH BEVORSTEHENDEN" -PRINT 0362, "ANGRIFFE = " J4-ZR; 

4680 PRINT 8483* "DRUECKE DIE FTRETRSTE " :• 

4&m TF PEEM 6528S >« 126 OP PEEK< 65280 >~254 THEH SCREEN 1,0= GOTO 3160 ELSE 4690 

4700 'ALLE FEINDLICHEN. ANGRIFFE UEBERSTRNDEN' 

4710 CIS 4 = PRINT »43. "si^er" ; :P0KE 1.072.32 = FOR A= 1.073 TO 1076 »PüKE R, 33 = HEXT fl 

4720 PF? INT 097. "EINE UNGLAUBLICHE LEISTUNG ! ' ! " ■ = PRINT i? 161," ES IST DIR SOEBEN G 

FLUHGEH. ".; 

4730 PRINT I? 193," DE INE STADT VOR DEN FEIND- " ;=PRIHT H225, "LICHEH ANGREIFERN 

ZU RETTEN ! ! " > 

4740 PRINT i?289, "HIERMIT WIRST DU VOM VOLK ZUM "> »PRINT 532t.. "'MISTER WELTRAUM' 

ERNANNT ! ! ! " j 

4750 PRINT 5398, "WELCH EINE EHRE ,.,„"; 

4760 FOR 6=1 TO 20 = SCREEN 0,1. = FOR A=l TO 300'NEKT A 

4770 SCREEN 0,0 'FOR A*l TO 300= HEXT R,B 

4730 FOR A*l TO 3 

4790 PLAY » T402L4 „ V20CL 1. Gl 1 6 „ RGFL 4 „ GL 1 6 . RGFL 4 . GL 1 6 . RGFGFEFEDEDCÜ 1 L4 ., RL 1 02E " 

4800 HEXT R 

4310 GOTO 4930 

4820 'GAME OVER' 

4830 FOR B=l TO 10 

4840 pi IT< 90 . 65 X 1 69 ■ t 1 > , E , PSET 




THEH Y»120 
STRINGSC30, 159 >:■ 
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4850 FOR R*i TG 50 -HEXT R 

4360 PUT< 96 , 65 )-< 1 69 , 11 Pi > . E . PREBET 

487fl FOR R=l TO 5©<NEXT R 

4880 NEKT B 

4890 FOR R=l TO 5000 ^NEÜT R 

4900 CHLOR 4 

49 1 L I NEC , )-( 255 ,191 > , PSET , BF 

4920 'NEUES SPIEL V 

4930 CLS 

4940 PESTORE 

4950 FOR Rst Tri 122 : RERD B'NEXT R 

4960 PP I NT f?0 , STR I NG$< 32 . 13 1) : 

4970 PRINT (?41 , "PUNKTE : " ; Fi 

4980 FOR R«i TO 45 

4990 RERD B,N 

5«00 SETCB,N,4) 

5010 MEXT R 

5020 REM DRTR 

5030 DRTR 3, 7, 8, 8, 8, 9, 8, 10, 8, 11., 8, 12. 9, 13. 18, 14. 1.1. 1.4, 12. 14. 13. 13. 14 . 12 , 1 4, 12, . 14 

, 14, 14, 15, 14,16, 14, 17, 14, 18, 14, 1.9, 13, 1.3, 13. IS, 11, 13, 10, 18, 10, 19,9, 19,8, 19,7, 19,6 

5040 DRTR 6 . 18, 5 , 18, 4, 18, 3, 18, 2, 18 . 2 , 1 9 . 2 . 1 7 . 3 . 1 6 . 2 . 15 . ? . 1 4 . 2 . 1 2 . 9 . 1 2 . 2 , 19 . 4 . 1 4 . 

5,14,6.14,7,13 , 

5050 FOR R*l TÖ 101 
5060 RERD B,N 
507& SET<B,N,2> 
5080 NEXT R 
5090 REM DRTR 

5100 DRTR 22,12,22,11,22, 10.22 .9,22, 8. 29.7-22, 6.22,7. 24. 8. 25.9, *6, lPi. 27- 1 1 -9R. r- 

,28,11.28,10,28,9,28,8,28,7,28.6 " ' 

51, 10 DRTR 36 ■ 6, 35, 6, 34.. 6, 33, 6, 32 , 6, 31 . 6 , 38 . 6 . 30 .-7 . 3R,8 .!W».<9, 31 .9, 3». 9,33 ,9, 30 , 1@ 

•30. 11 .30, 12,31 ■ 12.32. 12-33, 12-34. 12.35. 12.26. 12 

5 1. 20 DRTR 38 , 6 , 38 , 7 , 88 , 8 , 33 , 9 , 38 . 1 , 38 ■ 1 1 ,39 , 1 2. 40 , 1 2 - 4 1 . 1 2 ■ 42 . 1 2 . 43 . 1 2 . 44 . 1 1 ■ 44 

, 10, 44-, 9, 44, 8, 44 . 7, 44 , 6 

51 30 DRTR 52, 6, 51. . 6 . 50, 6, 49, 6 . 43 - 6 , 47 . 6 . 46 . 6 . 46 ■ 7 . 46 , 8 , 46 , 9 , 47 . 9 . 48 . 9 , 49 . 9 , 46 . 1 Fi 

-46, 1.1,46, 12-47, 12,48, 12,49, 12,50, 12-51 , 12.52, 12 

5140 DRTR 60 • 7 . 59, 6, 58 . 6 , 57 . 6 . 56 . 6 . 55 , 6 , 54 , 7 , 54 . 8 . 55 , 9 . 56 , 8 , 57 . 9 , 58 . 9 , 59 . 9 . 60 . • 1 

■ 60 . 1 1 , 59, 12, 58, 12, 57, 12, 56, 12, 55, 12 . 54, 1 1 

5150 FOR R=l TO 102 

51.60 RERD B,N 

51.70 SET<B,N,3> 

5180 NEXT fl 

5190 REM DRTR 

5200 DRTR 23 , 20 , 22 , 1 9 , 2 1 , 1 9 , 20 , 1 9 .19,12,1 8 . \ 9 , 1 7 , 20 , 1 7 , 2 1 , 1 8 , 22 ,19. 22 , 20 ,'22 .21, 2 

2 , 22 ■ 22 , 23 , 23 , 23 , 24 , 22 , 25 ,21. 25 , 20 . 25 . 1 9 . 25 . 1 8 . 25 , 1 7 , 24 

52 1 DRTR 30, 1 9 , 29 , 1 9 , 28 ,19, 27 , 1 9 , 26 , 1. 9 , 25 . 1 9 . 25 '." 20 . 25 , 2 1 - 25 ■ 22 . 26 ■ 22 . 27 . 22 ■ ?8 • 2 

2,29,22,30.22,81,21,31,20,25,23,25,24,25,25 

5220 DRTR 38 ,19, 34 , 1 9 , 35 , 1 9,86,19 , 87 , 1 9 , 35 , 20 , 85 ,21, 35 , 22 , 85 , 23 , 35 , 24 , 35 , 25 , 34 , 2 

5 . 23 , 25 - 36 . 25 • 37 . 95 

5230 DRTR 45, 19 , 44 . 1 9 , 43 , 1 9 , 42 ,19. 4 1 , 1 9 , 40 ,19. 39 , 1 9 , 39 , 20 , 39 , 2 1 , 39 , 22 , 40 , 22 ■ 4 1 , 2 

2.42-22. 39 , 23 . 89 , 24 , 39 , 25 , 40 , 25 , 41 , 25 , 42 , 25 , 43 , 25 , 44 , 25 , 45 , 25 

5240 DRTR 47 , 1 9 , 47 . 20 , 47 , 2 1 , 47 , 22 . 47 . 23 . 47 . 24 - 47 • 25 . 48 . 25 . 49 . 25 . 5ft . 25 , 5 1 . 25 .52-2 

5,58,25 

5250 DRTR 55 . 2 1 , 55 , 20 , 56 , 1 9 , 57 , 1 9 , 58 , 1 9 , 59 , 1 9 , 60 , 1 9 , 6 1 ■ 20 , 60 , 2 1 . 59 , 22 ,58 , 28 , 58 , 2 

tr 

5260 PR I NT M480 , STR I NG* < 81,1 40 ) .; = POKF 1 535 , 1 40 

5370 R$=INKEY$:TF R*="" THEN 5270 

5280 IF R$="J" THEN 1150 ELSE TF R*="N" THFN 539i'i ELSE 527fl 

5290 -'ENDE-' 

5300 P0KE65494 , i ' NORMALE VERRRBE I TUNG8GE8CHW T ND T GKE T T ' 

5310 FOR R=31 TO 1 STEP -1 'ftflV M T30L4OlV« , +STR»<fl>+ w C" 'HEXT fi 
5220 END 

5230 PLRY " T402V 1 5L 1 FL4ED#I... 1 Dl ...4C#C0 1. L 1 BL4R#RL 1 G# " 
5840 RETURN 
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Computronic Kleinanzeigen nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe 

unter der Rubrik : | I Angebote 

I I Gesuche 

folgenden Text: 



| I Kontakte 

I I Verschied 



enes 



1 


1 1 



Bitte jeweils 35 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 
Preis für Kleinanzeigen: 

Chiffregebühr 



Private Anzeige 
gewerbl. Anzeige 



DM 4,50 je Druckzeile 
DM 8,00 je Druckzeile 
DM 10,00 je Anzeige 



Name: 



Vorname : 



Unterschrift, Datum: 



Stra fte, Nr.: 
PLZ/Ort: 



privat 



D 



gewerbl. | I 



(bitte ankreuzen) 



Aktion: Billige Kleinanzeigen 

Lieber Leser, 

wollten Sie eine Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Corhputer. Software oder 
Kontakte zu Computer-Clubs etc.? 
Dann nutzen Sie jetzt den Kleinan- 
zeigenservice von ,Computronic'. 
.Computronic' ist die Zeitschrift für 
Home-Computer-Besitzer. Sie errei- 
chen durch uns eine Vielzahl von Le- 
sern im In- und Ausland. 
Und so wird's gemacht: 

Kleinanzeigen- 
Coupon ausfüllen (alle Zeilen können 
ausgefüllt werden) und gegen Vorkas- 
se von DM 4.50 einsenden an: 
Tronic-Verlag 
Postfach 41 
3444 Wehretal 1 



Eingesandt 

werden muß bis spätestens 1 1.Juli 

1984 (es gilt der Poststempel). 

Also, schnell ausfüllen und einwerfen 
in den nächsten Postkasten. Dann ist 
mit Sicherheit Ihre Kleinanzeige da- 
bei. 




inietsiaftK 

INTERGRARK WERBE GMBH 
DanzigerWeg 12 3440 Eschwege 

Tel:05651 -12565 

Grafik Fotografie Siebdruck 
Beschriftungen Schnelldruck 
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Tl - 99/4A 

Suche EXTENDED BASIC 
MODUL evtl. Tausch ge- 
gen EDITORIASSEMBLER 
sowie Maschinensprach- 
programme z.B. FLUGSI- 
MULATOR und EX. BASIC 
SPIEL MINER 2049 (USA - 
VERSION). Tel: 
Tel: 071 32/37608 



Suche/Tausche Software 
für C 64 und Atari 600/ 
000 XL. Vorzugsweise 
Tausch. 
Oliver Kellner, 
Haydnstr. 39 
6905 Schriesheim 
Tel: 06223/65939 



Spectrum Softw. z.B. M. 
Miner 8-, ZOOM S.- 
Liste + kostl. Programm 
anfordern, Karte genügt: 
H. Novak 
Egerländer PI. 19 
6053 Obertshausen 2 



C-64-Synthesizer: ca. 40 K, 
echte Noten, Partituredi- 
ting, Notenausdruck, Direkt- 
einspiel ungn Noten um Setz- 
ung, Supersound . Info von 
Autor W. Kracht 
Espellohweg 38 
2000 Hamburg 52 



ZX-SPECTRUM! Spielend 
BASIC lernen Ca . mit 
10 Pr.+Listing+Erklärung 
+Tips+Tricks für den ZX 
10 DM bei A. Meuser 
Goethestr. 1 8 
5205 St. Augustin 
NEU-SUPERZXSpiele- 



Tl 99/ 4A Software Service 
von Action bis Praxis 
Info geg. 1- Rückporto 
Behringstr. 45 
4600 Dortmund 50 



Tausche Spectrum-Software, 
Jan Weigner 
Carl-Schurz-Straße 11 
2800 Bremen 
Sinclair foreverü! 



TI-99/4A : ca. 90TI-Basic 
und ca. 80 Ex - Basic Pro- 
gramme zu verk. Info g. 
Rückumschlag 
B. Knedel 
Tulpengasse 16 
3171 Weyhausen 
Tel. 05362/71187 



An alle SF- und Fantasy - 
Freunde ! Jeweils 8 Mitspie 
ler für Strategiespiele ge - 
sucht. Mit Gewinnchancen . 
Näheres gegen Freium - 
schlag von : 
H. Topf 

A. BuchererStr 63 
5300 Bonn 1 



Roulettesoftware f. Sharp 
PC 1 21 1 /1 2/4551 /PC 1 500 
Roulettesystemprogramme 
»Auf Dauer gew. « 
»AD Astra« »Numberone« 
»Acclaim« »Plein Prive« 
»Accord« DM 550.- Cass 
B. Nowotny 
Giselastr. 3 
8000 München 40 



Suche Seikosha 6P-100A 
Drucker mit Interface für 
ZX Spectrum 
Lothar Schröder 
Dellchenstrasse 3 
6731 Frankeneck 



VZ 200 Softw. Info g. 
Freiumschlag 
W. Fischer 
Friedrichstr. 14 
6463 Freigericht 5 



Orig. engl. Software von 
EM JAY , (Wargame News, 
The War Machine ), für 
Commodore - Rechner ab 
16k und CBM 64 ! Näheres 
gegen Freiumschlag von : 
H.Topf 

A. Buchererstr. 63 
5300 Bonn 1 



Verkaufe 

Anrufbeantworter, 
Drahtlostelefon , 
Telefon - Anlage 
Eurosignal 12O0.-DM 
Div. USA-Telefone 
Info bei: 

Reinhard Winner 
Höchbergerstr. 62 
87 Würzburg 



100 Programme für VC-64 
wegen Hobby - Aufgabe 
zu verkaufen ! 
Rolf Freitag 
Gneisenaustr. 87 
4600 Dortmund 1 
Tel: 0231 - 825826 



COMPUTER-CASSETTEN 

im 10er Pack, BASF-Band-LHD, 
mit Box, Ecikett und Einleger 
CIO nur 15,- DM 

C20 16,-DM;C 30 17,- DM 

Brandneu von TDK: 

PC- 10 im 10er Pack 29 - DM 

CASSETTEN-AUFKLEBER 

auf Lochstreifen 100 Sc. 5 — DM 

120 St. auf A4-Druckbögen 

7 - DM; Versand ab 20,- DM: 

Christomenia-Cassertenstudio 

Postfach 20 

3584 Zwesten, Tel. 5626-281 



100 neue Programme 

forMZ80K, MZ80A, 
MZ 700, VZ 200, 
Laser 210, TI 99. 

Info, 1,— DM in Marken, 
von H. Weisel 
Königsberger Str. 20 
5412 Ransbach 



Commodore 64 
irre Programme (375) 
zu irren Preisen ! 
Ausführliche Liste 
(48 Seiten) gegen DM 3, 
in Briefmarken. 
Detlef Treichel 
Mittelbruchzeile 105 
1000 Berlin 51 



ZX Spectrum 

Soft- und Hardware. 

Preiswert 

durch Direktimport. 

Info bei: 
Ursula Kunz 
Junge Halden 3 
7500 Karlsruhe 41 



Kontakte : 

Comp.-Club Bad Hersfeld 

sucht Mitglieder ! 

Kontakt über 

Roland Reyer 

Am Giegenberg 21 

6438 Ludwigsau 1 

oder Jugendhaus Hersfeld 



ACHTUNG 
für Tl 99/4A jetzt lieferbar 
EXTENDED BASIC DM 295, 
Editor Assembler DM 189,- 
Parsec DM 79,- 

Tl-Logo II DM 320,- 

32K-Erw. extern DM 428,- 
Modul-Spiele direkt aus den 
* * * * USA ******* 
zb. Mash , Demon , Baseball , 
Tunnels of Doom , Moon mine 
Jawbreaker , Hopper , Attack , 

Bigfoot DM 99,- 

diverse ATARI-Spiele für Tl 
Pac Man , Donkey Kong , Dig 
Dug , Mrs. Pac Man , Defender, 
Centipede ... DM 99,- 

Neuü! MBX-Sprachsysteme 
nur für den TI-99/4A 
Spiele direkt mit der Spra- 
che steuern DM 298,- 

Neuü! GRAFIK TABLEAU 
für Tl 99/4A DM 298,- 

für ATARI DM 248,- 

für VC 64 DM 298,- 

Bitte Preisliste anfordern: 
RADIX Bürotechnik 
2000 Hamburg 13 
Bornstr. 4 
Tel. 040/4416 95 10-18.00 h 



Service 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. Alle im Heft abgedruckten Programme 
sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal 
nicht klappen. Die häufigste Ursache von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal keine 
Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert und können jederzeit mit heiliegender 
Bestellkarte zum Selbstkostenpreis bezogen werden. 

Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein, und senden sie an: 

Tronic- Verlag GmbH, Postfach 41, 3444 Wehretal 1 
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Computronic 



Computronk Bestellkarte*Cassettenservice 



Alle im Heft abgedruckten Programme können als zusätzlicher Service, zum Selbstkostenpreis, über den Verlag bezogen 
werden. 

gegen Vorkasse I I 

Die Zustellung erfolgt: per Nachnahme innerhalb von 14 Tagen! 

+ Versandkosten I I 

Achtung: Disketten können vorerst nur fun Apple 

VC-64 
VC-20 bezogen werden! 

Entnehmen Sie bitte aus unserer Preisliste Seite 66 die notwendigen Angaben für Ihre Bestellung: 



Bitte liefern Sie mir: [ i Cassette für 

I I Diskette für 



System 



System 



ium Preis von gesamt: 



D Anzahl 
EU Anzahl 
DM 



Name: 
PLZ/Ort: 



Straße, Nr. : 



Unterschrift, Datum: 



Computronic Abonnement 

Bitte ausschneiden und senden an: Tronic- Verlag, Postfach 41, 3444 Wehretal 1. 

Hiermit bestelle ich die Zeitschrift »Computronic« ab Heft Nr zum Jahresabonnementpreis (12 Ausgaben) von 

DM 55,— incl. Versand, Inland und DM 75,— incl. Versand, Ausland. 



Name/ Vorname : 



Straße, Nr. 



Plz, Ort: 



Ich wünsche folgende Zahlungsweise: 
I I Bargeldlos durch Bankeinzug: 



Bankleitzahl: 



Geldinstitut: 



Konto Nr. : 



I I gegen Rechnung 

| I gegen Vorkasse 

(betreffendendes bitte ankreuzen) 



Datum, Unterschrift 



Abonnements-Kündigungen : 6 Wochen vor Ablauf des Jahres- Abonnement. 



Korrekturen 



Atari »Tomstone-City 

Richtig 



100 Dill A$C443,KXC150 
6D,FYC6D :CH=CPEEKC106 
110 IF PEEKCCH + 83 024 
SÜß 32000 

1000 GRAPHICS 17:P0KE 
"POKE 708,54:POKE 711 
OKE 756,CH/256 
31000 FOR A=10 TO 14 
• 9 #6;CHR$U68) ;" " ;C 
683 ^NEXT A:RETURN 
32010'SOUND 0,0,0 3 0:X 
Chi, 1024) 

32030 FOR A=0 TO 7 :RE 
^POKE CH+C*8+A,B:NEXT 



) ? KYC150: ? SC15:,FXC 
3-83*256 
TUEN POKE 559,0:GO 

710, 148:P0KE 709,0 
, 180:POKE 712 3 238:P 

STEP 2 POSITION 8,A 
HR$C168);" ";CHR$C1 

=USRCADRCA$D,57344 3 

AD B^SOUND 3 B, 10,6 
A^GOTO 32020 



VC-64 »Roadpainter« 

Richtig 

62335 D ATH255 , 255 , 235 .■ 7 .- 7 , 1 35 .19?.- 23 1 

63095 I'RTR 1 42 .■ 2 , 208 .■ 234 * 234 , 234 , 1 73 .- 250 , 7 , 20 J. , 1 3 , 240 , 20 , 20 1,15 , 240 , 28 , 20 1.-14 



63Ö06 DATR24® .• 36 .- 1 74 .. 5 > 2Ö8 .. 32 .. 62 .- 1 28 .. 1 42 .. 5 .- 288 
63607 DRTfl 142.4 , 208 , 76 , 1 34 , 1 28 , 1 74 , 5 .. 203 , 32 , 53 

6302 1 DRTfl 162:5.-1 89 .. 96 .< 5.-201 .- 57 .- 240 .< 4 .. 254 .• 96.-5 

63022 DRTfl 1 44 , 1 62 , 3 , 1 39 .■ 40 ,' 6 .- 20 1 , 43 .. 203 .- 9 .■ 224 .. @ , 240 , 4 , 202! .■ 76 , 24 .> i 44 , 96 ,162 

63023 DRTR3 .■ 1 39 , 40 , 6 .. 20 1 .■ 48 .. 240 , 4 , 222 , 48 .= 6 , 36 .• 1 69 , 57 .. 1 57 , 40 .• 6 , 202 , 76 .» 42 , 1 44 

63024 DRTR32 ,0,1 44 , 76 .• 74 , 144.- 32 .- Ö , i 44 , 32 .- 22 , 1 44 , i 62 , 8 , 1 69 .. .• i 57 , 6 .- 2 1 2 , 224 , 24 

63025 HRTR240 .- 4 .- 232 .. 76 .. 78 .■ 1 44 , i 69 ,- 1 1 .■ 1 4 1 , 24 ,212,i 4 1 , @ .■ 2 1 2 , 1 4 1 , 1 .-212,1 69, 4 



.. 76 .- 194.' 1 28 .- 1 74 .< 4 .- 208 .- 32 .< 53 .- 1 2f 
, 1 28 , 1 42 , 5 , 208 , 76 , 194,1 28 , 1 74 

96 .- 1 69 .• 48 .- 1 5 7 .- 96 .- 5 .- 202 ,. 76 .> 2 



Zu dem Programm SPLIT: 



Folgende Zeilen müssen geändert werden (™= Blende) 

500IFA$(J r J + 3)="REM_"ORA$(J r J + 2)="]F— " 

OR A$(JJ + 4)-"DATA— "THEN J = LEN(A$):GOTO 540 

860 IF NOT (A$(J,J+3)="— ON— " OR A$(J,J + 3)-":0N_") 

THEN 930 

940 IF A$Cg + 3)="REM_" OR A$(J r J+4)="DATA_ ,, 

THEN 1060 

Diese Änderungen sind nötig weil 

-In Zeile 860 versucht wurde aus POSITION ein 0N...GOT0 

zu machen. 

-in den Zeilen 500 u. 940 in einer Data -Zeile nach 

Befehlen gesucht wurde. 

Diese Fehler sind mit dem angegebenen Änderungen nicht 

mehr möglich. 




Heft N von Computronic ist: 



#30 



Juli 



W"T> 




I 




Natürlich bringen wir dann wieder 
jede Menge Programme! 

Programme! 

Programme! 







wl .__.;:. .' 






und: 



Neues, Infos, Tips + Tricks! 




Es verabschiedet sich: Die Computronic-Redaktion 



Impressum: Computronic erscheint monatlich im Verlag: Tronic-Verlagsgesellschaft mbH, Landstraße 29, 3444 Wehretal 1, Tel.: (05651) 40643/40693. 
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computromc 

Tronic-Verlag GmbH 



computromc 

Infos 



Tips und Tricks für Einsteiger, Anfänger und Fortgeschrittene. Informationen und Daten. 
Sinnvolle Anwendungen und Anregungen. Lernen, anhand von Com p utronic , Programme 
einzugeben und Programme zu schreiben. Von Basic bis Maschinensprache. Neues vom 
Computermarkt über Hard- und Software. 



computromc 

Software -Listings 



Unser Schwerpunkt in den Ausgaben [70%]. Leichte und anspruchsvolle Programme 
werden im Heft abgedruckt, wobei die Redaktion alle bekannten Home-Computer 
berücksichtigen wird. Wenn man will, kann man die Programme einfach eingeben, damit 
spielen oder arbeiten. Alle Konzepte und Begriffe sowie alle Spiele werden vor ihrer 
Anwendung erklärt. 



computromc 

Software -Service 



Abgedruckte Programme können als zusätzlicher Service über den Verlag bezogen 
werden. Wer kein Interesse hat seinen Computer zu »füttern«, oder wem es zu lang- 
weilig wird zu programmieren, kann alle abgedruckten interessanten Spiele auf Cas- 
sette und Diskette erwerben. 



Com p utronic erscheint monatlich im Tronic-Verlag. Der Bezugspreis beträgt im Inland 
DM 5,50. Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH ■ Postfach 41 • 3444WehretaM • 05651-40643/40693 



